forums.silverfrost.com

[shah]

DATA R/-1.DO,1.DO,1.DO,-1.DO/
DATA S/-1.DO,-1.DO,1.DO,1.DO/
DATA U/-1.DO,1.DO,1.DO,-1.DO/
DATA V/-1.DO,-1.DO,1.DO,1.DO/
DATA WG/1.DO,1.DO,1.DO,1.DO/

it shows
: error 1069 - Terminating decimal point for binary operator token expected but not found
: error 52 - Compilation abandoned

then i modified the above to

DATA R/-1.0,DO,1.0,DO,1.0,DO,-1.0,DO/
DATA S/-1,DO,-1,DO,1,DO,1,DO/
DATA U/-1,DO,1,DO,1,DO,-1,DO/
DATA V/-1,DO,-1,DO,1,DO,1,DO/
DATA WG/1,DO,1,DO,1,DO,1,DO/

: error 287 - All items in a DATA statement's value list must be literal constants

then again i modified the above to

DATA R/-1.0,1.0,1.0,-1.0/
DATA S/-1.0,-1.0,1.0,1.0/
DATA U/-1.0,1.0,1.0,-1.0/
DATA V/-1.0,-1.0,1.0,1.0/
DATA WG/1.0,1.0,1.0,1.0/

*** SUBROUTINE 'PLATE4' called with argument no 9 as a REAL(KIND=2) when a INTEGER(KIND=3) was expected (from SUBROUTINE 'PLATE')


does this changes the actual programme how to eliminate the final compiling error?

[PaulLaidler]

In your first line (and following) you appear to have used the letter O where you need the number 0. i.e. it should be 1.D0 and not 1.DO etc.

[shah]