Home | News | Documentation | Download

FORTRAN f77 compiler

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.