...> dpb <none@non.net> wrote: DATA NEWVAL / MXL*MXD *0 / if ...on most systems all the initializing data goes into the object program. ...try this one: integer x(1000000) data x/1000000*1/ write(*,*) x(... using initializers in type declaration statements. (snip) On the type declaration ...the DATA statement. That is, that it usually stores all the array ...

...> wrote: The second would be DATA NEWVAL / MXL*MXD *0 / if initialization ...prefer using initializers in type declaration statements. They are far more regular and...the initializer on the type declaration statement instead of in a parameter statement...of a DATA statement to initialize only part of an array). -- Richard Maine | Good judgement comes from...

...) PARAMETER (NTRMAX=50) LOGICAL LOST(NTRMAX) DATA LOST / NTRMAX*(.FALSE.) PARAMETER(MXL= 10, MXD= 10) DIMENSION NEwVAL(MXL,MX / DATA NEWVAL / (MXL*MXD)*0/ which is the standard writing for those DATA statements? Thanks in advance This line: / DATA NEWVAL / (MXL*MXD)*0/ should read: DATA ...

...(NTRMAX=50) LOGICAL LOST(NTRMAX) DATA LOST / NTRMAX*(.FALSE.) PARAMETER(MXL=... the standard writing for those DATA statements? Thanks in advance Try ...(NTRMAX=50) LOGICAL LOST(NTRMAX) DATA LOST / NTRMAX*.FALSE. / PARAMETER(MXL=...MXD) DIMENSION NEWVAL(MXL,MXD) DATA NEWVAL / MXLD*0 / Kurt Thank...

...PARAMETER (NTRMAX=50) LOGICAL LOST(NTRMAX) DATA LOST / NTRMAX*(.FALSE.) PARAMETER(MXL= 10,...MXD= 10) DIMENSION NEwVAL(MXL,MXD) / DATA NEWVAL / (MXL*MXD)*0/ which is the standard writing for those DATA statements? Thanks in advance Try with:... (NTRMAX=50) LOGICAL LOST(NTRMAX) DATA LOST / NTRMAX*.FALSE. / PARAMETER(MXL= ...

...> PARAMETER (NTRMAX=50) LOGICAL LOST(NTRMAX) DATA LOST / NTRMAX*(.FALSE.) PARAMETER(MXL= 10, MXD= 10) DIMENSION NEwVAL(MXL,MXD) / DATA NEWVAL / (MXL*MXD)*0/ which is the standard writing for those DATA statements? DATA LOST / NTRMAX* .FALSE. The second would be DATA NEWVAL / MXL*MXD *0 / if initialization ...

...       PARAMETER (NTRMAX=50)       LOGICAL LOST(NTRMAX)       DATA LOST / NTRMAX*(.FALSE.)       PARAMETER(MXL= 10, MXD= 10)       DIMENSION NEwVAL(MXL,MXD) /    DATA NEWVAL / (MXL*MXD)*0/ which is the standard writing for those DATA statements? Thanks in advance This line: / DATA NEWVAL / (MXL*MXD)*0/ should read: DATA NEWVAL / (...

... does not work!! (It comes from a legacy code) PARAMETER (NTRMAX=50) LOGICAL LOST(NTRMAX) DATA LOST / NTRMAX*(.FALSE.) PARAMETER(MXL= 10, MXD= 10) DIMENSION NEwVAL(MXL,MXD) / DATA NEWVAL / (MXL*MXD)*0/ which is the standard writing for those DATA statements? Thanks in advance

...<none@non.net> wrote: The second would be DATA NEWVAL / MXL*MXD *0 / if initialization expressions allowed ...s why you can use the "*" in a PARAMETER statement. But initialization expressions aren't what are allowed in DATA. ... Yeah, I had a "DOH" moment some time...Like you, I've gotten away from using DATA almost exclusively, so combined w/ the rustiness that...

... prefer to not read this data from a file. Because the...real(fp) :: absorber(NLEV,NABS) data absorber(:,1) / & 4.76282998E-01_fp...96708261E+00_fp, & .... 1.90267237E+01_fp / data absorber(:,2) / & ...etc... / ...etc... The...from the module data to dummy argument arrays. As far as...to how to use data statements to initialise variables in modules...