Changeset 846

Timestamp:

12/10/09 17:26:58 (15 years ago)

Author:

bellier

Message:

Update according to the new version of src/mathelp

File:

• IOIPSL/trunk/example/testopp.f90 (modified) (1 diff)

IOIPSL/trunk/example/testopp.f90

@@ -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