subroutine function(id)
implicit real*8(a-h,o-z)
dimension alt(900),xvariable(900),yvariable(900),constant1(900),constant2(900)
dimension fxn1(900),fxn2(900)
common/op/alt,constant1,constant2,a1,b1,a2,b2,n2
gives:
filename.f:395.16:
common/op/alt,constant1,constant2,a1,b1,a2,b2,n2
1...