This is the mail archive of the gcc-help@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

fortran


Hi all,

I'm facing a problem with the gcc-f77 compiler. The mather of the fact is
that i don't anything about fortran.

I'm working on a project that is using existing fortran-files (that first
was used under irix) and i'm trying to get it working on Linux6.1. 
I have installed the fortrancompiler (for linux 6.1) en try to compile a
file called sm_pem_plcoot. This file does not cause any problems compiling
it on the irix with an older fortran version. But using the new version
(1386-redhat-linux/egcs-2.91.66/lib2cg) i'm facing a problem that i can't
fix.

The fault-message I get is:

DATA PLANA/'MERCURY ','VENUS   ','EARTH   ','MARS    ','JUPITER '
                     ^
Type disagreement between expressions at (?) and (^).

That's all. I have included the beginning of the code that is causing the
problem. Can any-one tell me what is wrong with this code?

Thanks,

Marion


      SUBROUTINE PLCOOT
CP THE ROUTINE CALLS 'COOT' AND SETS OTHER IMPORTANT CONSTANTS FOR
CP INTERPLANETARY TRAJECTORIES INTO COMMON BLOCKS. THE CONSTANTS
CP ARE THE SAME IN JPL'S EPHEMERIS DE118 AND DE200.
C
COM /PLATON/ AU = ASTRONOMICAL UNIT IN KM
COM /PLATON/ SOLARP = SUN-PRESSURE-COEFF IN KG*KM**3/(M*SEC)**2
COM /PLATON/ EMRAT = EARTH/MOON MASS RATIO
COM /PLATON/ EMRELA = MASS RATIO MOON/(MOON+EARTH)
COM /PLXMUE/ XMUE(...)  = GRAVITY POTENTIAL OF BODY IN KM**3/SEC**2
C            NB: NOT THE SAME AS IN COMMON /CPOEMS/ FROM COOT.
COM /PSEMAX/ RSIE(...) = SEMI-MAJOR AXIS OF ORBIT AROUND CENTRE
COM /PRINFL/ RINFL(...) = SPHERE OF INFLUENCE RADIUS IN KM
COM /CPEQUR/ PEQUR(...) = EQUATORIAL RADIUS OF BODY IN KM
COM /CPFLAT/ PLFLAT(...) = FLATNESS OF BODY
COM /PNAMES/ PLANAM(...) = NAME OF BODY IN FORMAT(A8)
C
C   NUMBERING OF CELESTIAL BODIES = 1: MERCURY, 2: VENUS,
C   3: EARTH, 4: MARS, 5: JUPITER, 6: SATURN,
C   7: URANUS, 8: NEPTUNE, 9: PLUTO, 10: SUN, 11: MOON.
C
C      CHARACTER*68 SCCS_INFO(2)
C     &/'@(#)/home/oadev/orblib/src/SCCS/s.plcoot.f	',
C     &'1.3	94/11/18 	ORBLIB\n'/
C
      IMPLICIT REAL*8(A-H,O-Z)
      COMMON /CGEOME/ RE,FLAT,FLATSQ,CLIGHT
      COMMON /CDYNAE/ STD50,OMT50,OMQ50,OMROT,STD50R,OMT50R,OMQ50R
      COMMON /CBASIC/ PI,TWOPI,PIH,DEG,RAD
      COMMON /CPOEMS/ XMU,WMU,WMUIN,XMUM,XMUS
      COMMON /CSOLAR/ SOLPR,ECL,CECL,SECL,XLSUNA,XLSUNB,ECLECC,ECLOM
      COMMON /CORIOL/ PRACCY,PRACCZ
      COMMON /PLATON/ AU,SOLARP,EMRAT,EMRELA
      COMMON /PLXMUE/ XMUE(11)
      COMMON /PSEMAX/ RSIE(11)
      COMMON /PRINFL/ RINFL(11)
      COMMON /CPEQUR/ PEQUR(11)
      COMMON /CPFLAT/ PLFLAT(11)
      COMMON /PNAMES/ PLANAM(11)
      DIMENSION PLANA(11)
C
      DATA PLANA /'MERCURY ','VENUS   ','EARTH   ','MARS    ','JUPITER '
     & ,'SATURN  ','URANUS  ','NEPTUNE ','PLUTO   '
     &     ,'SUN     ','MOON    '/
      DO 10  I = 1, 11
10    PLANAM(I)= PLANA(I)
C




Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]