Commit cbf68cea33cfb62e39a0740b463d904485b8555c

Authored by caveenj
1 parent fcccab97
Exists in master

Correction de bogues de fortran77 concernant la longueur

des lignes et l'ajout d'in enonce implicit none
dans une des fonctions
Showing 2 changed files with 5 additions and 4 deletions   Show diff stats
Makefile
... ... @@ -13,7 +13,7 @@
13 13 #
14 14 # include platform specific macro definitions
15 15 #
16   -HOSTTYPE = i486-linux
  16 +HOSTTYPE = solaris
17 17  
18 18 #MY_EXTFCNS = /home/caveenj/projets/ferret_compnc/external_fcns
19 19  
... ...
nc_rar.F
... ... @@ -67,8 +67,8 @@
67 67  
68 68 arg = 1
69 69 CALL ef_set_arg_name(id, arg, 'A')
70   - CALL ef_set_arg_desc(id, arg,'Champ decrivant la grille de sortie'//
71   - $ '- Field describing output grid')
  70 + CALL ef_set_arg_desc(id, arg,'Champ decrivant la grille de '//
  71 + $ 'sortie - Field describing output grid')
72 72 CALL ef_set_axis_influence(id, arg, YES, YES, YES, YES)
73 73  
74 74 arg = 2
... ... @@ -90,7 +90,7 @@
90 90  
91 91 subroutine nc_rar_result_limits(id)
92 92  
93   -
  93 + implicit none
94 94  
95 95 INCLUDE 'ferret_cmn/EF_Util.cmn'
96 96 INCLUDE 'ferret_cmn/EF_mem_subsc.cmn'
... ... @@ -102,6 +102,7 @@
102 102 * |
103 103 * V
104 104 INTEGER my_lo_x, my_hi_x, my_lo_y, my_hi_y
  105 + integer nx,ny
105 106 CHARACTER*100 errtxt
106 107  
107 108 INTEGER arg_lo_ss(4,EF_MAX_ARGS), arg_hi_ss(4,EF_MAX_ARGS),
... ...