[MITgcm-support] problems on alpha amchine

[Ed Hill]

On Tue, 2005-12-06 at 20:55 +0200, Hezi Gildor wrote:
> Dear Jean-Michel,
> 
> I attach diagnostics_main_init.f
> 
> it looks ok to me but still the compiler is not happy:
> 
> f77 -fpe2 -convert big_endian -r8 -extend_source -automatic -call_shared 
> -notransform_loops -align dcommons -O5 -fast -tune host -inline all -c 
> diagnostics_main_init.f
> f90: Error: diagnostics_main_init.f, line 1686: Syntax error, found 
> END-OF-STATEMENT when expecting one of: ( * :: , : ) + . - % . ** / // 
> .LT. < .LE. <= .EQ. == .NE. ...
>       diagUnits = DIAGS_MK_UNITS( rUnit2c
> -----------------------------------------^
> f90: Error: diagnostics_main_init.f, line 1693: Syntax error, found 
> END-OF-STATEMENT when expecting one of: ( * :: , : ) + . - % . ** / // 
> .LT. < .LE. <= .EQ. == .NE. ...
>       diagUnits = DIAGS_MK_UNITS( rUnit2c
> -----------------------------------------^
> f90: Error: diagnostics_main_init.f, line 1756: Syntax error, found 
> END-OF-STATEMENT when expecting one of: ( * :: , : ) + . - % . ** / // 
> .LT. < .LE. <= .EQ. == .NE. ...
>       diagUnits = DIAGS_MK_UNITS( rUnit2c
> -----------------------------------------^


Hi Hezi,

OK, this helps!  Its now obvious that you have a problem with your C
pre-processor ("CPP").  I ran a:

  $ diff -u diagnostics_main_init.f ~/diagnostics_main_init.f

to compare your file with ones that I've generated and there were many
differences similar to this one:

       diagTitle = 'Vertical Transp of Salt '
-      diagUnits = DIAGS_MK_UNITS(sUnit4c//'.'//rUnit2c//'/s', myThid )
+      diagUnits = DIAGS_MK_UNITS(sUnit4c
       diagCode  = 'WM      LR      '

which demonstrates that your CPP is not handling the "//" syntax the way
you want it to be handled (eg. left alone!).

So, can you get a systems administrator to help you install a different
CPP on that system?  Or, can you find out whether your CPP has a
"-traditional" or similar option that will help it act as you desire
with the syntax?

Ed

ps - The GNU CPP will do what you want so perhaps you can get it
     installed or get someone to help you install it?

-- 
Edward H. Hill III, PhD
office:  MIT Dept. of EAPS;  Rm 54-1424;  77 Massachusetts Ave.
             Cambridge, MA 02139-4307
emails:  eh3 at mit.edu                ed at eh3.com
URLs:    http://web.mit.edu/eh3/    http://eh3.com/
phone:   617-253-0098
fax:     617-253-4464