Subroutine or program?

Help
3

Thanks for this.

Still a little confused.

The stelcor file has the following as it’s very first line (line 1)…

SUBROUTINE STELCOR(CorM,CorR,CorL,Fmass,Timod,iprint)

This is followed by a series of comments before the code begins…

 include 'parm.h'
        include 'xvar.h'
        
        data ifirst / 0 /
        data zMmin / 9.945d31 /

        save
        
        Zflux  = Fmass
        xTimod = Timod
        xCorM  = CorM
        ipxx   = iprint

Do I therefore, do this…?

SUBROUTINE STELCOR(CorM,CorR,CorL,Fmass,Timod,iprint)

main program
    include 'parm.h'
    include 'xvar.h'
        
    data ifirst / 0 /
    data zMmin / 9.945d31 /

    Zflux  = Fmass
    xTimod = Timod
    xCorM  = CorM
    ipxx   = iprint

end main