[Dart-dev] [4711] DART/trunk/models/am2: One of the fortran compilers required a real function

[nancy at ucar.edu]

Revision: 4711
Author:   nancy
Date:     2011-02-15 13:40:52 -0700 (Tue, 15 Feb 2011)
Log Message:
-----------
One of the fortran compilers required a real function
interface block for the iargc() call.  no code changes.

Modified Paths:
--------------
    DART/trunk/models/am2/trans_pv_sv.f90
    DART/trunk/models/am2/trans_sv_pv.f90

-------------- next part --------------
Modified: DART/trunk/models/am2/trans_pv_sv.f90
===================================================================
--- DART/trunk/models/am2/trans_pv_sv.f90	2011-02-15 20:39:50 UTC (rev 4710)
+++ DART/trunk/models/am2/trans_pv_sv.f90	2011-02-15 20:40:52 UTC (rev 4711)
@@ -36,8 +36,13 @@
 
 implicit none
 
-integer, external :: iargc
+interface
+  integer function iargc()
+  end function iargc
+end interface
 
+!integer, external :: iargc
+
 character (len = 128) :: dartSVout, RstFileIn, TrcFileIn
 character (len = 256) :: string1, string2
 

Modified: DART/trunk/models/am2/trans_sv_pv.f90
===================================================================
--- DART/trunk/models/am2/trans_sv_pv.f90	2011-02-15 20:39:50 UTC (rev 4710)
+++ DART/trunk/models/am2/trans_sv_pv.f90	2011-02-15 20:40:52 UTC (rev 4711)
@@ -43,8 +43,13 @@
    revision = "$Revision$", &
    revdate  = "$Date$"
 
-integer, external :: iargc
+interface
+  integer function iargc()
+  end function iargc
+end interface
 
+!integer, external :: iargc
+
 type(assim_model_type) :: x
 type(model_type)       :: var
 type(time_type)        :: adv_to_time, curr_time, deltat