Changeset 846 for IOIPSL


Ignore:
Timestamp:
12/10/09 17:26:58 (14 years ago)
Author:
bellier
Message:

Update according to the new version of src/mathelp

File:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/example/testopp.f90

    r386 r846  
    3434     WRITE(*,*) ' ' 
    3535     WRITE(*,*) 'String to be analyzed : ',TRIM(opp) 
    36      CALL buildop (opp,ex_topps,tmp_topp,nbopp_max,missing_val, & 
    37     &              tmp_sopp,tmp_scal,nbopp) 
     36     CALL buildop (TRIM(opp),ex_topps,tmp_topp,missing_val, & 
     37 &                 tmp_sopp,tmp_scal,nbopp) 
    3838!- 
    39      WRITE(*,*) 'Time operation : ',TRIM(tmp_topp) 
    40      WRITE(*,*) 'Other operations  :', nbopp 
     39     WRITE(*,*) 'Time operation   : ',TRIM(tmp_topp) 
     40     WRITE(*,*) 'Other operations : ',nbopp 
    4141     DO i=1,nbopp 
    42        WRITE(*,*) 'i = ',i,' opp : ',tmp_sopp(i), & 
    43       &           ' scalar : ',tmp_scal(i) 
     42       WRITE(*,*) ' ',i,' opp : ',tmp_sopp(i),' scalar : ',tmp_scal(i) 
    4443     ENDDO 
    4544   ENDDO 
Note: See TracChangeset for help on using the changeset viewer.