module MAC_COMMONS IMPLICIT REAL*8 (a-h,o-z) ^ Warning 2 at (3:mac_glb.f90) : Type size specifiers are an extension to standard Fortran 95 CHARACTER*1 orbital ^ Comment 15 at (14:mac_glb.f90) : This feature is obsolescent in Fortran 95 CHARACTER*45 config ^ Comment 15 at (15:mac_glb.f90) : This feature is obsolescent in Fortran 95 character*14 cfname(0:999),dfname(0:999),pfname(0:999) ^ Comment 15 at (60:mac_glb.f90) : This feature is obsolescent in Fortran 95 character*3 clocation ^ Comment 15 at (63:mac_glb.f90) : This feature is obsolescent in Fortran 95 character*17 fname_cat ^ Comment 15 at (64:mac_glb.f90) : This feature is obsolescent in Fortran 95 character*17 fname_ece ^ Comment 15 at (65:mac_glb.f90) : This feature is obsolescent in Fortran 95 character*17 fname_gf ^ Comment 15 at (66:mac_glb.f90) : This feature is obsolescent in Fortran 95 character*17 fname_eci ^ Comment 15 at (67:mac_glb.f90) : This feature is obsolescent in Fortran 95 character*17 fname_pi ^ Comment 15 at (68:mac_glb.f90) : This feature is obsolescent in Fortran 95 129 Lines Compiled module GMS 42 Lines Compiled module MAC_CODE module subroutine INITIALIZE_MAC module subroutine MAC implicit real*8(a-h,o-z) ^ Warning 2 at (40:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine MAC_KERNAL implicit real*8 (a-h,o-z) ^ Warning 2 at (167:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine CHAR_NUM IMPLICIT REAL*8 (a-h,o-z) ^ Warning 2 at (534:mac.f90) : Type size specifiers are an extension to standard Fortran 95 CHARACTER*1 ones(0:9),char ^ Comment 15 at (535:mac.f90) : This feature is obsolescent in Fortran 95 module subroutine GAUSSJ pause 'singular matrix in gaussj' ^ Comment 12 at (569:mac.f90) : This statement is obsolescent in Fortran 90 and deleted in Fortran 95 if (a(icol,icol).eq.0.d0) pause 'singular matrix in gaussj' ^ Comment 12 at (589:mac.f90) : This statement is obsolescent in Fortran 90 and deleted in Fortran 95 module subroutine OPEN_DIAG implicit real*8 (a-h,o-z) ^ Warning 2 at (628:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine DR IMPLICIT REAL*8 (a-h,o-z) ^ Warning 2 at (880:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine ENERGY_DIFF implicit real*8 (a-h,o-z) ^ Warning 2 at (942:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine FILENAMES implicit real*8 (a-h,o-z) ^ Warning 2 at (959:mac.f90) : Type size specifiers are an extension to standard Fortran 95 character*1 ones(10) ^ Comment 15 at (961:mac.f90) : This feature is obsolescent in Fortran 95 character*1 tens(10) ^ Comment 15 at (962:mac.f90) : This feature is obsolescent in Fortran 95 character*1 hundereds(10) ^ Comment 15 at (963:mac.f90) : This feature is obsolescent in Fortran 95 character*8 prefix ^ Comment 15 at (964:mac.f90) : This feature is obsolescent in Fortran 95 character*3 sufix ^ Comment 15 at (965:mac.f90) : This feature is obsolescent in Fortran 95 character*14 fnames(0:999) ^ Comment 15 at (966:mac.f90) : This feature is obsolescent in Fortran 95 module function GMZBAR implicit real*8(a-h,o-z) ^ Warning 2 at (999:mac.f90) : Type size specifiers are an extension to standard Fortran 95 CHARACTER*1 char1,char2 ^ Comment 15 at (1001:mac.f90) : This feature is obsolescent in Fortran 95 Comment 2 : In procedure GMZBAR format 901 is not used module subroutine KILLED_LEV implicit real*8 (a-h,o-z) ^ Warning 2 at (1145:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module function GAMMLN implicit real*8(a-h,o-z) ^ Warning 2 at (1180:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine M_GAULAG IMPLICIT REAL*8(A-H,O-Z) ^ Warning 2 at (1202:mac.f90) : Type size specifiers are an extension to standard Fortran 95 pause 'too many iterations in m_gaulag' ^ Comment 12 at (1229:mac.f90) : This statement is obsolescent in Fortran 90 and deleted in Fortran 95 module subroutine M_MINV IMPLICIT REAL*8(A-H,O-Z) ^ Warning 2 at (1239:mac.f90) : Type size specifiers are an extension to standard Fortran 95 IF(DABS(BIGA)-DABS(A(IJ))) 15,20,20 ^ Comment 4 at (1265:mac.f90) : This statement is obsolescent in Fortran 90 and Fortran 95 20 CONTINUE ^ Comment 10 at (1269:mac.f90) : DO loops sharing the same terminating statement is obsolescent in Fortran 90 and Fortran 95 IF(J-K) 35,35,25 ^ Comment 4 at (1274:mac.f90) : This statement is obsolescent in Fortran 90 and Fortran 95 30 A(JI)=HOLD ^ Comment 9 at (1281:mac.f90) : Terminating a DO loop with a statement other than CONTINUE or ENDDO is obsolescent in Fortran 90 and Fortran 95 IF(I-K) 45,45,38 ^ Comment 4 at (1286:mac.f90) : This statement is obsolescent in Fortran 90 and Fortran 95 40 A(JI)=HOLD ^ Comment 9 at (1293:mac.f90) : Terminating a DO loop with a statement other than CONTINUE or ENDDO is obsolescent in Fortran 90 and Fortran 95 45 IF(BIGA) 48,46,48 ^ Comment 4 at (1297:mac.f90) : This statement is obsolescent in Fortran 90 and Fortran 95 IF(I-K) 50,55,50 ^ Comment 4 at (1301:mac.f90) : This statement is obsolescent in Fortran 90 and Fortran 95 IF(I-K) 60,65,60 ^ Comment 4 at (1314:mac.f90) : This statement is obsolescent in Fortran 90 and Fortran 95 60 IF(J-K) 62,65,62 ^ Comment 4 at (1315:mac.f90) : This statement is obsolescent in Fortran 90 and Fortran 95 65 CONTINUE ^ Comment 10 at (1318:mac.f90) : DO loops sharing the same terminating statement is obsolescent in Fortran 90 and Fortran 95 IF(J-K) 70,75,70 ^ Comment 4 at (1325:mac.f90) : This statement is obsolescent in Fortran 90 and Fortran 95 IF(K) 150,150,105 ^ Comment 4 at (1340:mac.f90) : This statement is obsolescent in Fortran 90 and Fortran 95 IF(I-K) 120,120,108 ^ Comment 4 at (1342:mac.f90) : This statement is obsolescent in Fortran 90 and Fortran 95 110 A(JI)=HOLD ^ Comment 9 at (1350:mac.f90) : Terminating a DO loop with a statement other than CONTINUE or ENDDO is obsolescent in Fortran 90 and Fortran 95 IF(J-K) 100,100,125 ^ Comment 4 at (1352:mac.f90) : This statement is obsolescent in Fortran 90 and Fortran 95 130 A(JI)=HOLD ^ Comment 9 at (1359:mac.f90) : Terminating a DO loop with a statement other than CONTINUE or ENDDO is obsolescent in Fortran 90 and Fortran 95 module subroutine M_SPLINE implicit real*8 (a-h,o-z) ^ Warning 2 at (1367:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine M_SPLINT implicit real*8 (a-h,o-z) ^ Warning 2 at (1402:mac.f90) : Type size specifiers are an extension to standard Fortran 95 if (h.eq.0.) pause 'bad xa input in m_splint' ^ Comment 12 at (1416:mac.f90) : This statement is obsolescent in Fortran 90 and deleted in Fortran 95 module subroutine MAC_INITIAL implicit real*8 (a-h,o-z) ^ Warning 2 at (1429:mac.f90) : Type size specifiers are an extension to standard Fortran 95 character*2 tnames(0:99) ^ Comment 15 at (1432:mac.f90) : This feature is obsolescent in Fortran 95 Comment 2 : In procedure MAC_INITIAL format 911 is not used Comment 2 : In procedure MAC_INITIAL format 910 is not used Comment 2 : In procedure MAC_INITIAL format 908 is not used module subroutine MAC_LTE implicit real*8 (a-h,o-z) ^ Warning 2 at (1571:mac.f90) : Type size specifiers are an extension to standard Fortran 95 Comment 2 : In procedure MAC_LTE format 900 is not used module subroutine MAC_OUTPUT implicit real*8 (a-h,o-z) ^ Warning 2 at (1663:mac.f90) : Type size specifiers are an extension to standard Fortran 95 character*60 char1 ^ Comment 15 at (1666:mac.f90) : This feature is obsolescent in Fortran 95 Comment 2 : In procedure MAC_OUTPUT format 951 is not used module subroutine MATRIX_COMPRESSION implicit real*8 (a-h,o-z) ^ Warning 2 at (1833:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine MPI implicit real*8 (a-h,o-z) ^ Warning 2 at (1870:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine OUTPUT_OPEN implicit real*8 (a-h,o-z) ^ Warning 2 at (1921:mac.f90) : Type size specifiers are an extension to standard Fortran 95 character*10 c_dir ^ Comment 15 at (1922:mac.f90) : This feature is obsolescent in Fortran 95 character*17 c_file ^ Comment 15 at (1923:mac.f90) : This feature is obsolescent in Fortran 95 character*27 c_place ^ Comment 15 at (1924:mac.f90) : This feature is obsolescent in Fortran 95 module subroutine PARSER implicit real*8 (a-h,o-z) ^ Warning 2 at (2050:mac.f90) : Type size specifiers are an extension to standard Fortran 95 character*5 cOrbitalQNs ^ Comment 15 at (2052:mac.f90) : This feature is obsolescent in Fortran 95 character*45 config ^ Comment 15 at (2054:mac.f90) : This feature is obsolescent in Fortran 95 module subroutine ALPHADIGITSTOINT implicit real*8 (a-h,o-z) ^ Warning 2 at (2117:mac.f90) : Type size specifiers are an extension to standard Fortran 95 character*45 config ^ Comment 15 at (2119:mac.f90) : This feature is obsolescent in Fortran 95 module function ICHARTOINT implicit real*8 (a-h,o-z) ^ Warning 2 at (2148:mac.f90) : Type size specifiers are an extension to standard Fortran 95 character*1 cChar ^ Comment 15 at (2149:mac.f90) : This feature is obsolescent in Fortran 95 module function IFUNCTYPE implicit real*8 (a-h,o-z) ^ Warning 2 at (2160:mac.f90) : Type size specifiers are an extension to standard Fortran 95 character*1 cChar ^ Comment 15 at (2161:mac.f90) : This feature is obsolescent in Fortran 95 module subroutine PRESSURE_IONIZATION implicit real*8 (a-h,o-z) ^ Warning 2 at (2184:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine PRINTFNAME implicit real*8 (a-h,o-z) ^ Warning 2 at (2205:mac.f90) : Type size specifiers are an extension to standard Fortran 95 character*8 prefix ^ Comment 15 at (2211:mac.f90) : This feature is obsolescent in Fortran 95 character*3 sufix ^ Comment 15 at (2212:mac.f90) : This feature is obsolescent in Fortran 95 Comment 2 : In procedure PRINTFNAME format 951 is not used module subroutine RATE_ECEECD implicit real*8 (a-h,o-z) ^ Warning 2 at (2265:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine RATE_ECIECR implicit real*8 (a-h,o-z) ^ Warning 2 at (2292:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine RATE_RR implicit real*8 (a-h,o-z) ^ Warning 2 at (2325:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine RCOEF_ECEECD implicit real*8 (a-h,o-z) ^ Warning 2 at (2366:mac.f90) : Type size specifiers are an extension to standard Fortran 95 character*14 ecefn(0:999) ^ Comment 15 at (2375:mac.f90) : This feature is obsolescent in Fortran 95 character*8 prefix ^ Comment 15 at (2376:mac.f90) : This feature is obsolescent in Fortran 95 character*3 sufix ^ Comment 15 at (2377:mac.f90) : This feature is obsolescent in Fortran 95 Comment 2 : In procedure RCOEF_ECEECD format 915 is not used module subroutine RCOEF_ECIECR implicit real*8 (a-h,o-z) ^ Warning 2 at (2507:mac.f90) : Type size specifiers are an extension to standard Fortran 95 Comment 2 : In procedure RCOEF_ECIECR format 915 is not used module subroutine RCOEF_PIRR implicit real*8 (a-h,o-z) ^ Warning 2 at (2658:mac.f90) : Type size specifiers are an extension to standard Fortran 95 Comment 2 : In procedure RCOEF_PIRR format 915 is not used module subroutine READ_ECEECD implicit real*8 (a-h,o-z) ^ Warning 2 at (2828:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine QUERYALL implicit real*8 (a-h,o-z) ^ Warning 2 at (2986:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module function ICHK implicit real*8 (a-h,o-z) ^ Warning 2 at (3011:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine READ_ECIECR implicit real*8 (a-h,o-z) ^ Warning 2 at (3041:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine READ_LEVELS implicit real*8 (a-h,o-z) ^ Warning 2 at (3213:mac.f90) : Type size specifiers are an extension to standard Fortran 95 character*1 orbital_aux,blk,char ^ Comment 15 at (3215:mac.f90) : This feature is obsolescent in Fortran 95 character*45 config_aux ^ Comment 15 at (3216:mac.f90) : This feature is obsolescent in Fortran 95 Comment 2 : In procedure READ_LEVELS format 905 is not used Comment 2 : In procedure READ_LEVELS format 903 is not used module function IQUERY implicit real*8 (a-h,o-z) ^ Warning 2 at (3462:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine READ_PIRR implicit real*8 (a-h,o-z) ^ Warning 2 at (3488:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine SRD implicit real*8 (a-h,o-z) ^ Warning 2 at (3655:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine STEWART_PYATT implicit real*8 (a-h,o-z) ^ Warning 2 at (3684:mac.f90) : Type size specifiers are an extension to standard Fortran 95 Comment 2 : In procedure STEWART_PYATT format 900 is not used module subroutine TAILNAMES implicit real*8 (a-h,o-z) ^ Warning 2 at (3745:mac.f90) : Type size specifiers are an extension to standard Fortran 95 character*1 ones(10) ^ Comment 15 at (3747:mac.f90) : This feature is obsolescent in Fortran 95 character*1 tens(10) ^ Comment 15 at (3748:mac.f90) : This feature is obsolescent in Fortran 95 character*2 tnames(0:99) ^ Comment 15 at (3752:mac.f90) : This feature is obsolescent in Fortran 95 module subroutine TEST_KERNAL implicit real*8 (a-h,o-z) ^ Warning 2 at (3784:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine TFERMI IMPLICIT REAL*8(A-H,O-Z) ^ Warning 2 at (3897:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module function TFZBAR IMPLICIT REAL*8(A-H,O-Z) ^ Warning 2 at (3925:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine RAD_TRANSDAT implicit real*8 (a-h,o-z) ^ Warning 2 at (3960:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine EINSTEINB implicit real*8 (a-h,o-z) ^ Warning 2 at (4027:mac.f90) : Type size specifiers are an extension to standard Fortran 95 module subroutine SRD_SUM implicit real*8 (a-h,o-z) ^ Warning 2 at (4057:mac.f90) : Type size specifiers are an extension to standard Fortran 95 zeffdr(i)=DFLOAT(i) ^ Warning 39 at (888:mac.f90) : This intrinsic function is an extension to standard Fortran 95 rnui=DFLOAT(Nvalshell(i)) ^ Warning 39 at (903:mac.f90) : This intrinsic function is an extension to standard Fortran 95 rnuj=DFLOAT(Nvalshell(j)) ^ Warning 39 at (909:mac.f90) : This intrinsic function is an extension to standard Fortran 95 zbar_lower = slope*(Tev_map - dfloat(iTev_lt)) + z_lt ^ Warning 39 at (1112:mac.f90) : This intrinsic function is an extension to standard Fortran 95 zbar_upper = slope*(Tev_map - dfloat(iTev_gt)) + z_gt ^ Warning 39 at (1124:mac.f90) : This intrinsic function is an extension to standard Fortran 95 gmzbar = slope*(rNa_log_map - dfloat(iNa_lt)) + zbar_lower ^ Warning 39 at (1132:mac.f90) : This intrinsic function is an extension to standard Fortran 95 w(i)=-dexp(gammln(alf+n)-gammln(dfloat(n)))/(pp*n*p2) ^ Warning 39 at (1231:mac.f90) : This intrinsic function is an extension to standard Fortran 95 do ii=1,tmax ^ Comment 6 at (3431:mac.f90) : The use of a non-integer DO loop variable or expression is obsolescent in Fortran 90 and deleted in Fortran 95 do ii=1,tmax ^ Comment 6 at (3435:mac.f90) : The use of a non-integer DO loop variable or expression is obsolescent in Fortran 90 and deleted in Fortran 95 do ii=1,tmax ^ Comment 6 at (3439:mac.f90) : The use of a non-integer DO loop variable or expression is obsolescent in Fortran 90 and deleted in Fortran 95 external function TRANSLATE implicit real*8(a-h,o-z) ^ Warning 2 at (4076:mac.f90) : Type size specifiers are an extension to standard Fortran 95 character*1 L ^ Comment 15 at (4077:mac.f90) : This feature is obsolescent in Fortran 95 external subroutine COPYARY external subroutine CONVERGE external function DIR 4127 Lines Compiled external subroutine MS_RIDAT_MM 282 Lines Compiled external subroutine MS_RDAT_MM 46 Lines Compiled external subroutine MS_SDAT_MM 265 Lines Compiled program MS external subroutine ATOMICKINETICS external subroutine EMISSIVITY IMPLICIT REAL*8 (a-h,o-z) ^ Warning 2 at (123:ms.f90) : Type size specifiers are an extension to standard Fortran 95 CHARACTER*7 sspecfile(0:2) ^ Comment 15 at (124:ms.f90) : This feature is obsolescent in Fortran 95 external subroutine OPACITY IMPLICIT REAL*8 (a-h,o-z) ^ Warning 2 at (157:ms.f90) : Type size specifiers are an extension to standard Fortran 95 CHARACTER*7 sspecfile(0:2) ^ Comment 15 at (158:ms.f90) : This feature is obsolescent in Fortran 95 external subroutine SPECTRA IMPLICIT REAL*8 (a-h,o-z) ^ Warning 2 at (190:ms.f90) : Type size specifiers are an extension to standard Fortran 95 CHARACTER*7 sspecfile(0:2) ^ Comment 15 at (191:ms.f90) : This feature is obsolescent in Fortran 95 CHARACTER*4 charfoo ^ Comment 15 at (192:ms.f90) : This feature is obsolescent in Fortran 95 external function TRAP IMPLICIT REAL*8 (a-h,o-z) ^ Warning 2 at (308:ms.f90) : Type size specifiers are an extension to standard Fortran 95 external function VOIGT IMPLICIT REAL*8 (a-h,o-z) ^ Warning 2 at (319:ms.f90) : Type size specifiers are an extension to standard Fortran 95 101 ri(i)=-i/2. ^ Comment 9 at (340:ms.f90) : Terminating a DO loop with a statement other than CONTINUE or ENDDO is obsolescent in Fortran 90 and Fortran 95 102 b(j+1)=c0*b(j)-b(j-1)+c(j) ^ Comment 9 at (345:ms.f90) : Terminating a DO loop with a statement other than CONTINUE or ENDDO is obsolescent in Fortran 90 and Fortran 95 103 d4(i)=(hn(i)*d3(i)+d2(i))/ri(4) ^ Comment 9 at (350:ms.f90) : Terminating a DO loop with a statement other than CONTINUE or ENDDO is obsolescent in Fortran 90 and Fortran 95 104 IF (x-5.) 105,112,112 ^ Comment 4 at (351:ms.f90) : This statement is obsolescent in Fortran 90 and Fortran 95 105 IF (y-1.) 110,110,106 ^ Comment 4 at (352:ms.f90) : This statement is obsolescent in Fortran 90 and Fortran 95 109 vv=x-u*vv ^ Comment 9 at (368:ms.f90) : Terminating a DO loop with a statement other than CONTINUE or ENDDO is obsolescent in Fortran 90 and Fortran 95 111 vv=vv+v*uu ^ Comment 9 at (386:ms.f90) : Terminating a DO loop with a statement other than CONTINUE or ENDDO is obsolescent in Fortran 90 and Fortran 95 external subroutine GET_STARKPROFILES IMPLICIT REAL*8 (a-h,o-z) ^ Warning 2 at (416:ms.f90) : Type size specifiers are an extension to standard Fortran 95 external subroutine LOAD IMPLICIT REAL*8 (a-h,o-z) ^ Warning 2 at (481:ms.f90) : Type size specifiers are an extension to standard Fortran 95 CHARACTER*100 fLi1(6), fLi2(11) ^ Comment 15 at (485:ms.f90) : This feature is obsolescent in Fortran 95 CHARACTER*100 c_aux ^ Comment 15 at (486:ms.f90) : This feature is obsolescent in Fortran 95 CHARACTER*70 workdir ^ Comment 15 at (487:ms.f90) : This feature is obsolescent in Fortran 95 external subroutine LINLOCATE implicit real*8 (a-h,o-z) ^ Warning 2 at (710:ms.f90) : Type size specifiers are an extension to standard Fortran 95 external subroutine LININTERP implicit real*8 (a-h,o-z) ^ Warning 2 at (720:ms.f90) : Type size specifiers are an extension to standard Fortran 95 970 Lines Compiled /home/manolo/pvm3/lib/LINUX/libpvm3.a(lpvm.o): In function `pvm_tc_conreq': lpvm.o(.text+0x897): the use of `tmpnam' is dangerous, better use `mkstemp'