Looking for 'dimens.f' / 'ltplinc.f' / 'array.f' 2

[MarkGregor]

Hi everybody,

my problem is, that I have to modify an old Fortran code (I guess it is f77), which calls (includes) the following libraries:

'dimens.f', 'ltplinc.f' and 'array.f'

Unfortunately, my compiler doesn't know these libraries and I haven't found any documentation for them.

My question is: Are these libraries 'standard f77' libraries? And if so, where can I get them? Or by which libraries (or language structures) have they been replaced in f90? Any help is welcome. Thanks.

Mark

PS: I use an old Lahey F90 compiler from 1998

The listing is:
------------------------------------------
include 'dimens.f'
integer nges, nbg, nox
integer idn(nkom), idbg(nkom), idox(nkom)
real*8 xi(nkom), xibg(nkom), xiox(nkom)
real*8 vox, voxn, vabg, vabgn, vbg, vbgn, xbo2, xi0(nkom)

include 'ltplinc.f'
integer*1 b(natom,nkom)
integer mges

include 'arrays.f'
real*8 lambda(3), tbl(3), tbs(3), tab(3), lamb
real*8 rho, etam, mm, spos, cpm, cpv, cvm, hm, sm
character str*255, str2*255, ext*4, mf*1
character str3*255, ver*255

 

[GerritGroot]

I never use libraries myself, but are they not included by means of the USE statement?

Include "mycode.f" looks like including your own stuff.

It seems to me that the code they gave you is incomplete.
Let's hope I'm wrong.

 

[xwb]

They aren't libraries - they are source files.

 

[xwb]

They must be sources somewhere in your system. I too have the 1998 Lahey compiler (when it was free). It isn't part of the Lahey distribution. Just do a "dir /s *.f" from C:\ and see what pops up.

 

[MarkGregor]

Hi Gerrit, hi "xwb",

thanks for the fast reply! Unfortunately, you have been right, Gerrit. They didn't give the complete code ;-(.
It might take me some time to find the rest....


Yours Mark