Changeset 1991 for vendors/IOIPSL/current/example/testopp.f90

Timestamp:

2010-07-08T15:39:26+02:00 (14 years ago)

Author:

smasson

Message:

Load working_directory into vendors/IOIPSL/current.

File:

• vendors/IOIPSL/current/example/testopp.f90 (modified) (2 diffs)

vendors/IOIPSL/current/example/testopp.f90

@@ -1 +1 @@
 PROGRAM testopp
 !-
-!$Id: testopp.f90 386 2008-09-04 08:38:48Z bellier $
+!$Id: testopp.f90 846 2009-12-10 16:26:58Z bellier $
 !-
 ! This software is governed by the CeCILL license
@@ -34 +34 @@
      WRITE(*,*) ' '
      WRITE(*,*) 'String to be analyzed : ',TRIM(opp)
-     CALL buildop (opp,ex_topps,tmp_topp,nbopp_max,missing_val, &
-    &              tmp_sopp,tmp_scal,nbopp)
+     CALL buildop (TRIM(opp),ex_topps,tmp_topp,missing_val, &
+ &                 tmp_sopp,tmp_scal,nbopp)
 !-
-     WRITE(*,*) 'Time operation : ',TRIM(tmp_topp)
-     WRITE(*,*) 'Other operations  :', nbopp
+     WRITE(*,*) 'Time operation   : ',TRIM(tmp_topp)
+     WRITE(*,*) 'Other operations : ',nbopp
      DO i=1,nbopp
-       WRITE(*,*) 'i = ',i,' opp : ',tmp_sopp(i), &
-      &           ' scalar : ',tmp_scal(i)
+       WRITE(*,*) ' ',i,' opp : ',tmp_sopp(i),' scalar : ',tmp_scal(i)
      ENDDO
    ENDDO