Ignore:
Timestamp:
07/08/11 11:21:13 (13 years ago)
Author:
hozdoba
Message:

Gestion du dispatch client

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XMLIO_V2/dev/dev_rv/src4/xmlio/fortran/idomain.f90

    r249 r254  
    4444      INTEGER                        , OPTIONAL, INTENT(IN) :: jend_ 
    4545      INTEGER                        , OPTIONAL, INTENT(IN) :: nj_ 
    46       LOGICAL                        , dimension(*), OPTIONAL, INTENT(IN) :: mask_(:,:) 
     46      LOGICAL          , dimension(*), OPTIONAL, INTENT(IN) :: mask_(:,:) 
    4747      INTEGER                        , OPTIONAL, INTENT(IN) :: data_dim_ 
    4848      INTEGER                        , OPTIONAL, INTENT(IN) :: data_ni_ 
    … …  
    9393      INTEGER                          , OPTIONAL, INTENT(IN) :: nj_ 
    9494      LOGICAL          , dimension(*)  , OPTIONAL, INTENT(IN) :: mask_(:,:) 
    95       LOGICAL(kind = 1), dimension(:,:), ALLOCATABLE          :: mask__ 
     95      LOGICAL(kind = 1), dimension(:,:), ALLOCATABLE          :: mask__! (size(mask_,1),size(mask,2)) 
    9696      INTEGER                          , OPTIONAL, INTENT(IN) :: data_dim_ 
    9797      INTEGER                          , OPTIONAL, INTENT(IN) :: data_ni_ 
Note: See TracChangeset for help on using the changeset viewer.