bastian1985

Hey Danke Casioi für die vielen Ideen wie dein Tipp schon sagt, ist das wohl der einzige weg: *** if(2d) then berechnung mit CellNum2d else berechnung mit CellNum3d endif *** so habe ich das im Programm jetzt auch ausgeführt, das wollte ich halt umgehen dass ich dafür zwei Variablen benutzen muss, da im Programm dann sehr oft die Unterscheidung kommt, ob jetzt CellNum2d oder CellNum3d benutzt wird wie hier: if (dim3log) then NumZ=1 endif do i=1,NumX do j=1,NumY do k=1,NumZ !für 3D if (dim3log) then ic=CellNum3d(i,j,k) !für 3D else ic=CellNum2d(i,j) endif enddo enddo enddo und ich hatte halt Angst, dass dadurch dadurch die Rechnendauer ansteigt, da er immer wieder die if-Abfrage behandeln muss. Aber wie gesagt ist das der einzige Weg. Vielen Dank nochmal!

hi danke für die Antwort du hast das richtig verstanden, mit 3 dim meine ich dim(3). Das mit dem nur als 3D Array zu deklarieren darüber denke ich gerade auch nach. Dies würde aber auch einiges erschweren, da das Programm Daten aus einer Datei einließt, die im 2D Fall halt eine andere Form hat, als im 3D Fall. Aber wenn es sowieso keinen Befehl dafür gibt ist es ja meine einzige Lösung Vielen Dank für deine Hilfe

mmh hat keiner eine Ahnung oder ein Tipp? habe es ja schon mit dem Aufruf "reshape" oder "spread" versucht, nur da erstellt man ja auch ein neues Array, will ja das das Array genau den selben Namen hat, nur um eine Dimension erweitert wird.

Guten Tag, sitzte gerade an meiner Diplomarbeit, in welcher ich ein Programm in Fortran umschreiben muss. Es soll später soll 2D als auch 3D Berechnungen durchführen können. Mein Problem die Variable ist die Zellnummerierung, da sie ja einmal 2d und einmal 3d sein muss das steht in meiner Varialbendeklaration integer,pointer,dimension(:,: ) CellNum jetzt möchte ist das wenn if (dim3d=.True.) !es wird als 3dimensional gerechnet dass dann die Variable Cellnum folgende form hat integer,pointer,dimension(:,:,: ) CellNum hätte vielleicht einer eine Ahnung wie das geht. Vielen Dank für die Hilfe!