Hi everybody,
Can anyone help me to install or build fortran f77 compiler?
Cheers.
Assuming you are using “gcc”, it’s called “gfortan” nowadays.
I have just typed : “man -k fortran” on my terminal, and I got the results below.
ctags (1p) - create a tags file (DEVELOPMENT, FORTRAN)
f2c (1) - Convert Fortran 77 to C or C++
fort77 (1p) - FORTRAN compiler (FORTRAN)
gfortran (1) - GNU Fortran compiler
As you said, I think I have gfortran, instead. However, I had many warnings after compilation. I am not sure if that cause any harm.
May be post some of these warnings here ?
Dear Couet,
Today, I got less warnings for twofnr12.f code. For one compilation, I didn’t even get any warning (for front14.f code). I guess this is because my recent installations of g2c and gfortran as far as I remember.
Anyway, the warning I have now is :
[ic00025@localhost TJP_TOWFNR]$ f77 -o front14 front14.f
[ic00025@localhost TJP_TOWFNR]$ f77 -o twofnr12 twofnr12.f
twofnr12.f: In subroutine `writeb':
twofnr12.f:3368: warning:
3360 format(1h ,37hform factor used for overlap integral,3x,5hnr=1,i3/)
^
Missing comma in FORMAT statement at (^)
////////////////////////////////////////////////////////////////////////
That’ the line in the code where the warning is angry about:
3360 format(1h ,37hform factor used for overlap integral,3x,5hnr=1,i3/)
///////////////////////////////////////////////////////////////////////////////////
I have no knowledge of fortran, so maybe this is very simple warning to fix.
Somehow, when I say locate “f77”, I have these:
/home/ic00025/root-6.14.04/build/win/f77.sh
/home/ic00025/root_source/root-6.12.04/build/win/f77.sh
/usr/bin/f77
I guess I have f77 installed recently in some way, but I didn’t installed it directly.
On the other hand, I got many warning with gfortran compiler that I have.
Wsrnings for two codes separately are below. Despite these warnings, it creates the macros.
[ic00025@localhost TJP_TOWFNR]$ gfortran -o front14 front14.f
front14.f:3677:9:
do rp=rstep,rmax+0.01d0,rstep
1
Warning: Deleted feature: Loop variable at (1) must be integer
front14.f:3677:12:
do rp=rstep,rmax+0.01d0,rstep
1
Warning: Deleted feature: Start expression in DO loop at (1) must be integer
front14.f:3677:18:
do rp=rstep,rmax+0.01d0,rstep
1
Warning: Deleted feature: End expression in DO loop at (1) must be integer
front14.f:3677:30:
do rp=rstep,rmax+0.01d0,rstep
1
Warning: Deleted feature: Step expression in DO loop at (1) must be integer
front14.f:2546:11:
front14.f:2544:72:
40 do 100 i=1,33
2
front14.f:2546:11:
70 if(x(i+1)-z) 100,60,50
1
Warning: Array reference at (1) out of bounds (34 > 33) in loop beginning at (2)
front14.f:2601:11:
front14.f:2599:72:
40 do 100 i=1,33
2
front14.f:2601:11:
70 if(x(i+1)-z) 100,60,50
1
Warning: Array reference at (1) out of bounds (34 > 33) in loop beginning at (2)
[ic00025@localhost TJP_TOWFNR]$ ls
front14 front14.f in.no1 mix1 OK run.sh testresults.log twofnr12.f
[ic00025@localhost TJP_TOWFNR]$ gfortran -o twofnr12 twofnr12.f
twofnr12.f:1570:65:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Legacy Extension: Hollerith constant at (1)
twofnr12.f:1571:27:
data ifh /4h f ,4h h /
1
Warning: Legacy Extension: Hollerith constant at (1)
twofnr12.f:3279:47:
1 ,4hl ,4hj1 ,4h ,4hj2 /
1
Warning: Legacy Extension: Hollerith constant at (1)
twofnr12.f:3656:28:
data blank,star/1h ,1h*/
1
Warning: Legacy Extension: Hollerith constant at (1)
twofnr12.f:3657:53:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Legacy Extension: Hollerith constant at (1)
twofnr12.f:3657:17:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr12.f:3657:21:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr12.f:3657:25:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr12.f:3657:29:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr12.f:3657:33:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr12.f:3657:37:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr12.f:3657:41:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr12.f:3657:45:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr12.f:3657:49:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr12.f:3657:53:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr12.f:3656:24:
data blank,star/1h ,1h*/
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr12.f:3656:28:
data blank,star/1h ,1h*/
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr12.f:2882:14:
read(35,fmat)(vbcd(nr,ichnl),nr=1,nr3max)
1
Warning: Legacy Extension: Non-character in FORMAT tag at (1)
twofnr12.f:2885:14:
read(35,fmat)(wbcd(nr,ichnl),nr=1,nr3max)
1
Warning: Legacy Extension: Non-character in FORMAT tag at (1)
twofnr12.f:2889:14:
read(35,fmat)(vsov(nr,ichnl),nr=1,nr3max)
1
Warning: Legacy Extension: Non-character in FORMAT tag at (1)
twofnr12.f:2894:14:
read(35,fmat)(wsov(nr,ichnl),nr=1,nr3max)
1
Warning: Legacy Extension: Non-character in FORMAT tag at (1)
twofnr12.f:1466:15:
read (5,fmat)(ff(ii),ii=1,nrmax)
1
Warning: Legacy Extension: Non-character in FORMAT tag at (1)
twofnr12.f:1470:14:
read(35,fmat)(ffi(ii),ii=1,nrmax)
1
Warning: Legacy Extension: Non-character in FORMAT tag at (1)
twofnr12.f:3278:19:
data idata/4h ga,4huss ,4h yuk,4hawa ,4hinit,4hial ,4hfina
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr12.f:3278:26:
data idata/4h ga,4huss ,4h yuk,4hawa ,4hinit,4hial ,4hfina
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr12.f:3278:33:
data idata/4h ga,4huss ,4h yuk,4hawa ,4hinit,4hial ,4hfina
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr12.f:3278:40:
data idata/4h ga,4huss ,4h yuk,4hawa ,4hinit,4hial ,4hfina
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr12.f:3278:47:
data idata/4h ga,4huss ,4h yuk,4hawa ,4hinit,4hial ,4hfina
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr12.f:3278:54:
data idata/4h ga,4huss ,4h yuk,4hawa ,4hinit,4hial ,4hfina
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr12.f:3278:61:
data idata/4h ga,4huss ,4h yuk,4hawa ,4hinit,4hial ,4hfina
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr12.f:3279:26:
1 ,4hl ,4hj1 ,4h ,4hj2 /
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr12.f:3279:33:
1 ,4hl ,4hj1 ,4h ,4hj2 /
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr12.f:3279:40:
1 ,4hl ,4hj1 ,4h ,4hj2 /
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr12.f:3279:47:
1 ,4hl ,4hj1 ,4h ,4hj2 /
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr12.f:1571:20:
data ifh /4h f ,4h h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr12.f:1571:27:
data ifh /4h f ,4h h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr12.f:1569:23:
data idata /4h ,4h i,4hncid,4hent ,4h ,4h ,4h e,
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr12.f:1569:30:
data idata /4h ,4h i,4hncid,4hent ,4h ,4h ,4h e,
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr12.f:1569:37:
data idata /4h ,4h i,4hncid,4hent ,4h ,4h ,4h e,
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr12.f:1569:44:
data idata /4h ,4h i,4hncid,4hent ,4h ,4h ,4h e,
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr12.f:1569:51:
data idata /4h ,4h i,4hncid,4hent ,4h ,4h ,4h e,
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr12.f:1569:58:
data idata /4h ,4h i,4hncid,4hent ,4h ,4h ,4h e,
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr12.f:1569:65:
data idata /4h ,4h i,4hncid,4hent ,4h ,4h ,4h e,
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr12.f:1570:9:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr12.f:1570:16:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr12.f:1570:23:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr12.f:1570:30:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr12.f:1570:37:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr12.f:1570:44:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr12.f:1570:51:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr12.f:1570:58:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr12.f:1570:65:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
The warnings you get are quite clear. For instance the first one says that a loop index should be an integer … (rp is a real is you have not declared it).
Try:
f95 -o front14 front14.f
gfortran -std=legacy -o front14 front14.f
Firstly, what is your suggestion for the command with f77? I guess the best fit is f77 compiler since my guess is it is initially written by it.
Secondly, I tried f95 compiler ,and it gives same warning with gfortran.
Warning is here:
[ic00025@localhost TJP_TOWFNR]$ f95 -o front14 front14.f
front14.f:3677:9:
do rp=rstep,rmax+0.01d0,rstep
1
Warning: Deleted feature: Loop variable at (1) must be integer
front14.f:3677:12:
do rp=rstep,rmax+0.01d0,rstep
1
Warning: Deleted feature: Start expression in DO loop at (1) must be integer
front14.f:3677:18:
do rp=rstep,rmax+0.01d0,rstep
1
Warning: Deleted feature: End expression in DO loop at (1) must be integer
front14.f:3677:30:
do rp=rstep,rmax+0.01d0,rstep
1
Warning: Deleted feature: Step expression in DO loop at (1) must be integer
front14.f:2546:11:
front14.f:2544:72:
40 do 100 i=1,33
2
front14.f:2546:11:
70 if(x(i+1)-z) 100,60,50
1
Warning: Array reference at (1) out of bounds (34 > 33) in loop beginning at (2)
front14.f:2601:11:
front14.f:2599:72:
40 do 100 i=1,33
2
front14.f:2601:11:
70 if(x(i+1)-z) 100,60,50
1
Warning: Array reference at (1) out of bounds (34 > 33) in loop beginning at (2)
//////////////////////////////////////////////////////////////////////////////////////////
Thirdly, it gives these warnings with "gfortran -std=legacy " compiler as you said:
[ic00025@localhost TJP_TOWFNR]$ gfortran -std=legacy -o front14 front14.f
front14.f:2546:11:
front14.f:2544:72:
40 do 100 i=1,33
2
front14.f:2546:11:
70 if(x(i+1)-z) 100,60,50
1
Warning: Array reference at (1) out of bounds (34 > 33) in loop beginning at (2)
front14.f:2601:11:
front14.f:2599:72:
40 do 100 i=1,33
2
front14.f:2601:11:
70 if(x(i+1)-z) 100,60,50
1
Warning: Array reference at (1) out of bounds (34 > 33) in loop beginning at (2)
//////////////////////////////////////////////////
Can you guys try to compile this with f77 fortran ccompiler for me? Then, tell me if you succeed, or not.
I added the documents. I changed the names, so I can upload them.
Orginial names end with “.f”
fortran20.txt (298.5 KB) twofnr20.txt (264.3 KB)
% gfortran -c fortran20.f twofnr20.f
fortran20.f:5013:9:
do rp=rstep,rmax+0.01d0,rstep
1
Warning: Deleted feature: Loop variable at (1) must be integer
fortran20.f:5013:12:
do rp=rstep,rmax+0.01d0,rstep
1
Warning: Deleted feature: Start expression in DO loop at (1) must be integer
fortran20.f:5013:18:
do rp=rstep,rmax+0.01d0,rstep
1
Warning: Deleted feature: End expression in DO loop at (1) must be integer
fortran20.f:5013:30:
do rp=rstep,rmax+0.01d0,rstep
1
Warning: Deleted feature: Step expression in DO loop at (1) must be integer
fortran20.f:3663:11:
fortran20.f:3661:72:
40 do 100 i=1,33
2
fortran20.f:3663:11:
70 if(x(i+1)-z) 100,60,50
1
Warning: Array reference at (1) out of bounds (34 > 33) in loop beginning at (2)
fortran20.f:3721:11:
fortran20.f:3719:72:
40 do 100 i=1,33
2
fortran20.f:3721:11:
70 if(x(i+1)-z) 100,60,50
1
Warning: Array reference at (1) out of bounds (34 > 33) in loop beginning at (2)
twofnr20.f:1622:65:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Legacy Extension: Hollerith constant at (1)
twofnr20.f:1623:27:
data ifh /4h f ,4h h /
1
Warning: Legacy Extension: Hollerith constant at (1)
twofnr20.f:3574:47:
1 ,4hl ,4hj1 ,4h ,4hj2 /
1
Warning: Legacy Extension: Hollerith constant at (1)
twofnr20.f:3956:28:
data blank,star/1h ,1h*/
1
Warning: Legacy Extension: Hollerith constant at (1)
twofnr20.f:3957:53:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Legacy Extension: Hollerith constant at (1)
twofnr20.f:3957:17:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3957:21:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3957:25:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3957:29:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3957:33:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3957:37:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3957:41:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3957:45:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3957:49:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3957:53:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3956:24:
data blank,star/1h ,1h*/
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3956:28:
data blank,star/1h ,1h*/
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3573:19:
data idata/4h ga,4huss ,4h yuk,4hawa ,4hinit,4hial ,4hfina
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:3573:26:
data idata/4h ga,4huss ,4h yuk,4hawa ,4hinit,4hial ,4hfina
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:3573:33:
data idata/4h ga,4huss ,4h yuk,4hawa ,4hinit,4hial ,4hfina
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:3573:40:
data idata/4h ga,4huss ,4h yuk,4hawa ,4hinit,4hial ,4hfina
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:3573:47:
data idata/4h ga,4huss ,4h yuk,4hawa ,4hinit,4hial ,4hfina
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:3573:54:
data idata/4h ga,4huss ,4h yuk,4hawa ,4hinit,4hial ,4hfina
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:3573:61:
data idata/4h ga,4huss ,4h yuk,4hawa ,4hinit,4hial ,4hfina
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:3574:26:
1 ,4hl ,4hj1 ,4h ,4hj2 /
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:3574:33:
1 ,4hl ,4hj1 ,4h ,4hj2 /
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:3574:40:
1 ,4hl ,4hj1 ,4h ,4hj2 /
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:3574:47:
1 ,4hl ,4hj1 ,4h ,4hj2 /
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:1623:20:
data ifh /4h f ,4h h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1623:27:
data ifh /4h f ,4h h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1621:23:
data idata /4h ,4h i,4hncid,4hent ,4h ,4h ,4h e,
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1621:30:
data idata /4h ,4h i,4hncid,4hent ,4h ,4h ,4h e,
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1621:37:
data idata /4h ,4h i,4hncid,4hent ,4h ,4h ,4h e,
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1621:44:
data idata /4h ,4h i,4hncid,4hent ,4h ,4h ,4h e,
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1621:51:
data idata /4h ,4h i,4hncid,4hent ,4h ,4h ,4h e,
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1621:58:
data idata /4h ,4h i,4hncid,4hent ,4h ,4h ,4h e,
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1621:65:
data idata /4h ,4h i,4hncid,4hent ,4h ,4h ,4h e,
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1622:9:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1622:16:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1622:23:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1622:30:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1622:37:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1622:44:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1622:51:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1622:58:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1622:65:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
Hımm. I succeeded this time with this version. Can you try this ones with
f77 -o front20 front20.f and
f77 -o twofnr20 twofnr20.f ?
Again, you should save them with “.f” extantion instead of .txt . Thanks.
I want to make sure if anybody else can compile them too.
twofnr20.txt (264.3 KB)
front20.txt (298.5 KB)
% gfortran -o front20 fortran20.f
fortran20.f:5013:9:
do rp=rstep,rmax+0.01d0,rstep
1
Warning: Deleted feature: Loop variable at (1) must be integer
fortran20.f:5013:12:
do rp=rstep,rmax+0.01d0,rstep
1
Warning: Deleted feature: Start expression in DO loop at (1) must be integer
fortran20.f:5013:18:
do rp=rstep,rmax+0.01d0,rstep
1
Warning: Deleted feature: End expression in DO loop at (1) must be integer
fortran20.f:5013:30:
do rp=rstep,rmax+0.01d0,rstep
1
Warning: Deleted feature: Step expression in DO loop at (1) must be integer
fortran20.f:3663:11:
fortran20.f:3661:72:
40 do 100 i=1,33
2
fortran20.f:3663:11:
70 if(x(i+1)-z) 100,60,50
1
Warning: Array reference at (1) out of bounds (34 > 33) in loop beginning at (2)
fortran20.f:3721:11:
fortran20.f:3719:72:
40 do 100 i=1,33
2
fortran20.f:3721:11:
70 if(x(i+1)-z) 100,60,50
1
Warning: Array reference at (1) out of bounds (34 > 33) in loop beginning at (2)
ld: library not found for -lSystem
collect2: error: ld returned 1 exit status
% gfortran -o twofnr20 twofnr20.f
twofnr20.f:1622:65:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Legacy Extension: Hollerith constant at (1)
twofnr20.f:1623:27:
data ifh /4h f ,4h h /
1
Warning: Legacy Extension: Hollerith constant at (1)
twofnr20.f:3574:47:
1 ,4hl ,4hj1 ,4h ,4hj2 /
1
Warning: Legacy Extension: Hollerith constant at (1)
twofnr20.f:3956:28:
data blank,star/1h ,1h*/
1
Warning: Legacy Extension: Hollerith constant at (1)
twofnr20.f:3957:53:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Legacy Extension: Hollerith constant at (1)
twofnr20.f:3957:17:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3957:21:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3957:25:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3957:29:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3957:33:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3957:37:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3957:41:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3957:45:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3957:49:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3957:53:
data fno/1h ,1h2,1h3,1h4,1h5,1h6,1h7,1h8,1h9,1h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3956:24:
data blank,star/1h ,1h*/
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3956:28:
data blank,star/1h ,1h*/
1
Warning: Extension: Conversion from HOLLERITH to REAL(8) at (1)
twofnr20.f:3573:19:
data idata/4h ga,4huss ,4h yuk,4hawa ,4hinit,4hial ,4hfina
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:3573:26:
data idata/4h ga,4huss ,4h yuk,4hawa ,4hinit,4hial ,4hfina
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:3573:33:
data idata/4h ga,4huss ,4h yuk,4hawa ,4hinit,4hial ,4hfina
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:3573:40:
data idata/4h ga,4huss ,4h yuk,4hawa ,4hinit,4hial ,4hfina
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:3573:47:
data idata/4h ga,4huss ,4h yuk,4hawa ,4hinit,4hial ,4hfina
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:3573:54:
data idata/4h ga,4huss ,4h yuk,4hawa ,4hinit,4hial ,4hfina
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:3573:61:
data idata/4h ga,4huss ,4h yuk,4hawa ,4hinit,4hial ,4hfina
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:3574:26:
1 ,4hl ,4hj1 ,4h ,4hj2 /
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:3574:33:
1 ,4hl ,4hj1 ,4h ,4hj2 /
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:3574:40:
1 ,4hl ,4hj1 ,4h ,4hj2 /
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:3574:47:
1 ,4hl ,4hj1 ,4h ,4hj2 /
1
Warning: Extension: Conversion from HOLLERITH to INTEGER(4) at (1)
twofnr20.f:1623:20:
data ifh /4h f ,4h h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1623:27:
data ifh /4h f ,4h h /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1621:23:
data idata /4h ,4h i,4hncid,4hent ,4h ,4h ,4h e,
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1621:30:
data idata /4h ,4h i,4hncid,4hent ,4h ,4h ,4h e,
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1621:37:
data idata /4h ,4h i,4hncid,4hent ,4h ,4h ,4h e,
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1621:44:
data idata /4h ,4h i,4hncid,4hent ,4h ,4h ,4h e,
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1621:51:
data idata /4h ,4h i,4hncid,4hent ,4h ,4h ,4h e,
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1621:58:
data idata /4h ,4h i,4hncid,4hent ,4h ,4h ,4h e,
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1621:65:
data idata /4h ,4h i,4hncid,4hent ,4h ,4h ,4h e,
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1622:9:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1622:16:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1622:23:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1622:30:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1622:37:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1622:44:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1622:51:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1622:58:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
twofnr20.f:1622:65:
1 4hxit ,4hinte,4hrmed,4hiate,4h(1) ,4hinte,4hrmed,4hiate,4h(2) /
1
Warning: Extension: Conversion from HOLLERITH to REAL(4) at (1)
Please, use :
f77 - o front20 front20.f
f77 -o twofnr20 twofnr20.f
Then, I will be sure we used the same compiler and did the same thing.
Sorry but I do not have f77 …
You will get many warnings from: gfortran -std=legacy -O3 -Wall -Wextra *.f
You should at least fix:
twofnr20.f: In function ‘ovlapa’:
twofnr20.f:3049:0: warning: ‘ljfmem’ is used uninitialized in this function [-Wuninitialized]
if((ljchk.eq.ljfmem).and.(lfchk.eq.lfmem)) go to 70
All “Array reference at … out of bounds …” are quite serious, too.