[cig-commits] r5600 - short/3D/PyLith/branches/pylith-0.8/pylith3d/utils

[leif at geodynamics.org]

Author: leif
Date: 2006-12-14 16:55:27 -0800 (Thu, 14 Dec 2006)
New Revision: 5600

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/makeucd.f
   short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/pylith2ucd.f
Log:
Replaced lnblnk with len_trim for portability (ifort has only
the latter).


Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/makeucd.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/makeucd.f	2006-12-13 00:40:17 UTC (rev 5599)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/makeucd.f	2006-12-15 00:55:27 UTC (rev 5600)
@@ -343,22 +343,22 @@
         call getarg(i,string)
         if(index(string,'m=').ne.0) then
           massigned=.true.
-          j=lnblnk(string)
+          j=len_trim(string)
           mfile=string(3:j)
         else if(index(string,'p=').ne.0) then
           passigned=.true.
-          j=lnblnk(string)
+          j=len_trim(string)
           pfile=string(3:j)
         else if(index(string,'g=').ne.0) then
           gassigned=.true.
-          j=lnblnk(string)
+          j=len_trim(string)
           gfile=string(3:j)
         else if(index(string,'o=').ne.0) then
           oassigned=.true.
-          j=lnblnk(string)
+          j=len_trim(string)
           ofile=string(3:j)
         else if(index(string,'n=').ne.0) then
-          j=lnblnk(string)
+          j=len_trim(string)
           read(string(3:j),*) ival
           if(ival.eq.0) then
             ninterp=.false.
@@ -369,7 +369,7 @@
             stop
           end if
         else if(index(string,'nf=').ne.0) then
-          j=lnblnk(string)
+          j=len_trim(string)
           read(string(4:j),*) ival
           if(ival.eq.0) then
             nout=.false.
@@ -380,7 +380,7 @@
             stop
           end if
         else if(index(string,'cf=').ne.0) then
-          j=lnblnk(string)
+          j=len_trim(string)
           read(string(4:j),*) ival
           if(ival.eq.0) then
             cout=.false.

Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/pylith2ucd.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/pylith2ucd.f	2006-12-13 00:40:17 UTC (rev 5599)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/pylith2ucd.f	2006-12-15 00:55:27 UTC (rev 5600)
@@ -104,7 +104,7 @@
 c
       integer nnblnk,nchar
       external nnblnk,nchar
-      intrinsic lnblnk,iargc
+      intrinsic len_trim,iargc
 c
       integer nargs
       logical gotname,gotnodes,gotelems
@@ -124,17 +124,17 @@
       do i=1,nargs
         call getarg(i,string)
         if(index(string,"b=").ne.0) then
-          j=lnblnk(string)
+          j=len_trim(string)
           basename=string(3:j)
           gotname=.true.
           basebeg=nnblnk(basename)
           baseend=nchar(basename)
         else if(index(string,"n=").ne.0) then
-          j=lnblnk(string)
+          j=len_trim(string)
           read(string(3:j),*) numnodes
           gotnodes=.true.
         else if(index(string,"e=").ne.0) then
-          j=lnblnk(string)
+          j=len_trim(string)
           read(string(3:j),*) numels
           gotelems=.true.
         end if