I am trying to compile ROMS 2.2 on an SGI Origin 2000. I keep getting the error
'This Hollerith constant is longer than 256 bits.' from module 'set_2dfld_mod' in the file 'set_2dfld.f90'.
I have tried to compile using both 32 and 64 bits setups but I get the same error. Any suggestions?
ROMS on SGI Origin 2000
ROMS and SGI compiling problem
Hi,
I have the same problem on compilation of ROMS 2.2 on SGI, the error is like that
f90 -c -mips4 -u -TENV:X=3 -64 -O3 -OPT:Olimit=4038 set_2dfld.f90
MODULE set_2dfld_mod
^
f90-855 f90: ERROR SET_2DFLD_MOD, File = set_2dfld.f90, Line = 1, Column = 14
The compiler has detected errors in module "SET_2DFLD_MOD". No module information file will be created for this module.
fac1=ANINT(Tintrp(it2,ifield,ng)-time(ng),r8)
^
f90-1133 f90: ERROR SET_2DFLD_TILE, File = set_2dfld.f90, Line = 89, Column = 12
This Hollerith constant is longer than 256 bits.
^
f90-130 f90: ERROR SET_2DFLD_TILE, File = set_2dfld.f90, Line = 89, Column = 49
The kind type parameter value 8 is not valid for type typeless.
fac2=ANINT(time(ng)-Tintrp(it1,ifield,ng),r8)
^
f90-1133 f90: ERROR SET_2DFLD_TILE, File = set_2dfld.f90, Line = 90, Column = 12
This Hollerith constant is longer than 256 bits.
^
f90-130 f90: ERROR SET_2DFLD_TILE, File = set_2dfld.f90, Line = 90, Column = 49
The kind type parameter value 8 is not valid for type typeless.
I went back to the source file on line 89
fac1=ANINT(Tintrp(it2,ifield,ng)-time(ng),r8)
fac2=ANINT(time(ng)-Tintrp(it1,ifield,ng),r8)
ANINT is intrincis rounding function, its usage is like this
result = ANINT(a, kind)
However, it is correctly used, there is still some problem withd kind. But, "kind" usage is optional, I think that it will work out most of cases , so, I advise that it should be used without specifying kind option.
If you go these line and remove kind (r8) as follows
fac1=ANINT(Tintrp(it2,ifield,ng)-time(ng))
fac2=ANINT(time(ng)-Tintrp(it1,ifield,ng))
this will work out, compilation keep going on for this file but next file (set_3dfld.f90) you would have the same problem, you have to do it again, ....
I am new to ROMS and trying to compile but still not done it,
I hope that I did not give you inaccurate direction,
bye,
I have the same problem on compilation of ROMS 2.2 on SGI, the error is like that
f90 -c -mips4 -u -TENV:X=3 -64 -O3 -OPT:Olimit=4038 set_2dfld.f90
MODULE set_2dfld_mod
^
f90-855 f90: ERROR SET_2DFLD_MOD, File = set_2dfld.f90, Line = 1, Column = 14
The compiler has detected errors in module "SET_2DFLD_MOD". No module information file will be created for this module.
fac1=ANINT(Tintrp(it2,ifield,ng)-time(ng),r8)
^
f90-1133 f90: ERROR SET_2DFLD_TILE, File = set_2dfld.f90, Line = 89, Column = 12
This Hollerith constant is longer than 256 bits.
^
f90-130 f90: ERROR SET_2DFLD_TILE, File = set_2dfld.f90, Line = 89, Column = 49
The kind type parameter value 8 is not valid for type typeless.
fac2=ANINT(time(ng)-Tintrp(it1,ifield,ng),r8)
^
f90-1133 f90: ERROR SET_2DFLD_TILE, File = set_2dfld.f90, Line = 90, Column = 12
This Hollerith constant is longer than 256 bits.
^
f90-130 f90: ERROR SET_2DFLD_TILE, File = set_2dfld.f90, Line = 90, Column = 49
The kind type parameter value 8 is not valid for type typeless.
I went back to the source file on line 89
fac1=ANINT(Tintrp(it2,ifield,ng)-time(ng),r8)
fac2=ANINT(time(ng)-Tintrp(it1,ifield,ng),r8)
ANINT is intrincis rounding function, its usage is like this
result = ANINT(a, kind)
However, it is correctly used, there is still some problem withd kind. But, "kind" usage is optional, I think that it will work out most of cases , so, I advise that it should be used without specifying kind option.
If you go these line and remove kind (r8) as follows
fac1=ANINT(Tintrp(it2,ifield,ng)-time(ng))
fac2=ANINT(time(ng)-Tintrp(it1,ifield,ng))
this will work out, compilation keep going on for this file but next file (set_3dfld.f90) you would have the same problem, you have to do it again, ....
I am new to ROMS and trying to compile but still not done it,
I hope that I did not give you inaccurate direction,
bye,