Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
f77 equivalence -> f90
I've got this (very old fashioned) piece of code COMMON /CHDATA/ HNO3 , HONO , HNO4 , CO , HO2H , OOH , & PAN , PPN , HCHO , CCHO , RCHO , MEK , & RNO3 , MGLY , AFG2 , SO2 , ETHE , OLE1 , & OLE2 , OLE3 , OLE4 , ALK1 ... -
joining arrays
Thank you everybody for stimulating suggestions. I managed to do what I wanted to do in a different way that I would like to submit to your experienced opinions for improvement. Here is the code tested with gfortran, g95 and ifort. Any suggestion and/or criticism is welcome. module... -
variable string length function
Here is another maybe-trivial--problem. I cannot figure out how to write a character function that returns a variable-length string just like the intrinsic trim does. In the example below, the len applied to trim returns the length of the trimmed string. character(len=100) :: qaz='qwerty'... -
joining arrays
I'm sure I haven't explaiend my problem clearly. vars qaz,zaq,zot are defined in a module and they are there with different names and this situation cannot be changed (part of the program is maintained by another group that does not loke to chenge their coding "standards") module qq integer... -
joining arrays
Here is a problem that I would manage easily in fortran 77 but it seems to be more tricky in 90 (but probably i'm wrong): suppose to have NV arrays of the same shape and dimensions, say (nx,ny,nz). I would like to have a unique array with 4 dims, one indicating the variable to address. In 77...
