Noele Franchi

Olá Pessoal.. eu estou tentando compilar dois códigos no gfortran e nao estou conseguindo! Alguém pode me ajudar? Está aparecendo esse erro.. $ gfortran try_read_co2atm.f Undefined symbols for architecture x86_64: "_read_co2atm_", referenced from: _MAIN__ in cce13Kjl.o ld: symbol(s) not found for architecture x86_64 collect2: error: ld returned 1 exit status PROGRAM try_read_co2atm C ------------------------------------------------------------------ C Test PROGRAM to READ historical atmospheric CO2 (uatm) C IMPLICIT NONE INTEGER maxrec, nmxr PARAMETER (maxrec=1200, nmxr=700) REAL yrco2rec(maxrec), atmco2rec(maxrec) INTEGER luco2, irec INTEGER nco2rec INTEGER is, ireadf INTEGER nsipl, nstab REAL futco2(nmxr,8) REAL dummy CALL read_co2atm('test', nco2rec, yrco2rec, atmco2rec) DO irec=1,nco2rec WRITE(*,'(2f8.2)') yrco2rec(irec),atmco2rec(irec) END DO STOP END SUBROUTINE read_co2atm(futr_scen, nco2rec, yrco2rec, atmco2rec) C ------------------------------------------------------------------ C Reads temporal history of atmospheric CO2 (uatm) C ------------------------------------------------------------------ C ================================================================== C Argument list - C =============== C Note: Variable TYPE is given in square brackets (below) C (r-REAL, i-INTEGER, l-LOGICAL, c-CHARACTER; s-scaler, a-array). C =============== C INPUT: C ------- C [cs] futr_scen = In OCMIP-3 - not used! (kept ONLY for consistency) C ---------- C ---------- C In OCMIP-2:- but this version of routine modified C for OCMIP-2 USE version 1.2 C ----------- C IPCC future scenario: either S350, S450, S550, C S650, S750, DS450, or DS550 from Enting et al. C (1994), or CIS9 signifying c-IS92A for c IPCC (2000) run. From 1765.0-2003.0, it C doesn't matter which scenario you use, i.e., C atmospheric CO2 will be the same (from a C spline fit to Siple Ice core and Mauna Loa C data. Subsequently, atmospheric CO2 is C different, according to the choice given above. C C OUTPUT: C ------- C [is] nco2rec = Number of records (years) for atmospheric CO2 C from historical (splco2.dat) plus C future (stab.dat) records C [ra] yrco2rec = sequential list of times (in decimal years) C for WHEN atmospheric CO2 data is available C [ra] atmco2rec = corresponding sequential list of atmospheric C co2 (ppm). C - OCMIP-2 record from Enting et al. (1994) C - OCMIP-3/NOCES record same UNTIL 1990.5, C THEN it is a 12-month running mean from the C GlobalView DATA for MLO . C ================================================================== C C Reference C --------- C Enting, I.G., T. M. L. Wigley, M. Heimann, 1994. Future emissions C and concentrations of carbon dioxide: key ocean / atmosphere / C land analyses, CSIRO Aust. Div. Atmos. Res., Tech. Pap. No. 31, C 118 pp. C ------------------------------------------------------------------ C C James Orr, LSCE/CEA-CNRS, Saclay, France, 17 April 1999 IMPLICIT NONE INTEGER maxrec, nmxr PARAMETER (maxrec=1200, nmxr=700) REAL yrco2rec(maxrec), atmco2rec(maxrec) INTEGER luco2, irec INTEGER nco2rec INTEGER is, ireadf INTEGER nsipl, nstab REAL futco2(nmxr,8) REAL dummy CHARACTER*4 futr_scen C OPEN FILE C --------- luco2=50 OPEN(luco2+1, FILE='splmlo_co2_noces.dat', FORM='formatted', & STATUS='old') C -------------------------- C Get atmospheric CO2 data C -------------------------- WRITE(*,*)' ' WRITE(*,*)'--------------------------------------------------' WRITE(*,*)'Atm. CO2 from fit to Siple-Mauna Loa record' WRITE(*,*)'--------------------------------------------------' C ---------------------------------- C READ historical co2 concentrations C ---------------------------------- C READ(luco2+1,200) C 200 FORMAT(////) DO irec=1,maxrec C Read from splco2.dat (historical emissions) READ(luco2+1,*,ERR=222,END=222) & yrco2rec(irec),atmco2rec(irec) nco2rec = irec END DO 222 CONTINUE WRITE(*,*) 'Atm. CO2: No. of entries for 1-box atmosphere =', & nco2rec CLOSE(luco2+1) RETURN END