Ooops. Yeah that might help.
Here's a complete picture of this section of code:
-----------beginning of file-----------------
BLOCK DATA BNCSRC
IMPLICIT REAL*8 (A-H,O-Z)
INTEGER*2 ITABL, ITABL1, ITABL2
LOGICAL*1 OTABL
COMMON /BIAS/ TYPE(25), ITABL(5,25), OTABL(5,20)
DIMENSION ITABL1(5,14), ITABL2(5,11)
EQUIVALENCE ( ITABL(1,1), ITABL1(1,1)) ,
* ( ITABL(1,15), ITABL2(1,1))
DATA TYPE /'VHF ','MINITRCK','C-BAND ','S-BAND ',
1 'USB30 ','USB85 ','VLFS ','ATS ',
2 'ATS GRDD','NDS ','SRE ','LASER ',
3 'OPTICAL ','X-Y MMMM',' ',' ',
4 ' ',' ',' ',' ',
5 'PCE ','LANDMARK','OABIAS ','LANDMRK2',
6 'HAP ' /some more stuff involving ITABL,ITABL1,ITABLE2... -------------EOF--------------------------------- Here is the output of g77 --version
GNU Fortran (GCC) 3.4.2 20041017 (Red Hat 3.4.2-6.fc3) Copyright (C) 2004 Free Software Foundation, Inc.
---------------------------------------------
It looks like it's just defining a variable TYPE with a character array. Anyway, as far as compilability is concerned, this works for Intel Fortran Compiler 8.1.
Thanks for your patience.
-Ben
On Sat, 18 Dec 2004, Bud Davis wrote:
H Ben,
On first glance you have a mismatch between the type of a variable and the data you are trying to initialize.
But, in most cases, we here at gcc-help give erroneous advice when all we see is a code fragment. If you could make us a small, "should be compilable" fragment showing both the declaration and the data statement, maybe we can help out.
Here is an example that I think shows your problem, but it works !!
$ cat data.f
INTEGER T DATA T /'VHF '/ PRINT*,T END $ g77 data.f $ ./a.out 541476950
also the output of "g77 --version" can be useful.
--bud
