Changeset 966


Ignore:
Timestamp:
10/10/16 16:01:11 (8 years ago)
Author:
mhnguyen
Message:

Reducing length of line of auto-generate Fortran interface

+) Break line into smaller ones to make sure each line is not longer than 132 character

Test
+) Local with gcc4.8
+) Compilation passed

Location:
XIOS/trunk/src
Files:
26 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/attribute_map.cpp

    r778 r966  
    629629 
    630630         oss << std::endl << iendl; 
    631          oss << "CALL xios(get_" << className << "_handle)(" << className << "_id," << className << "_hdl)" << iendl; 
     631         oss << "CALL xios(get_" << className << "_handle) &" << iendl; 
     632         oss << "(" << className << "_id," << className << "_hdl)" << iendl; 
    632633         oss << "CALL xios(set_" << className << "_attr_hdl_)   &" << iendl; 
    633634 
    … …  
    693694 
    694695         oss << std::endl << iendl; 
    695          oss << "CALL xios(get_" << className << "_handle)(" << className << "_id," << className << "_hdl)" << iendl; 
     696         oss << "CALL xios(get_" << className << "_handle) &" << iendl; 
     697         oss << "(" << className << "_id," << className << "_hdl)" << iendl; 
    696698         oss << "CALL xios(get_" << className << "_attr_hdl_)   &" << iendl; 
    697699 
    … …  
    757759 
    758760         oss << std::endl << iendl; 
    759          oss << "CALL xios(get_" << className << "_handle)(" << className << "_id," << className << "_hdl)" << iendl; 
     761         oss << "CALL xios(get_" << className << "_handle) &" << iendl; 
     762         oss << "(" << className << "_id," << className << "_hdl)" << iendl; 
    760763         oss << "CALL xios(is_defined_" << className << "_attr_hdl_)   &" << iendl; 
    761764 

  • XIOS/trunk/src/generate_interface_impl.hpp

    r932 r966  
    323323    { 
    324324      oss << "  " << name_tmp << " = " << name << "_" << iendl; 
    325       oss << "  CALL cxios_set_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name_tmp << ")" << iendl; 
     325      oss << "  CALL cxios_set_" << className << "_" << name << " &" << iendl; 
     326      oss << "(" << className << "_hdl%daddr, " << name_tmp << ")" << iendl; 
    326327    } 
    327     else oss << "  CALL cxios_set_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name << "_)" << iendl; 
     328    else { oss << "  CALL cxios_set_" << className << "_" << name << " &" << iendl; 
     329           oss << "(" << className << "_hdl%daddr, " << name << "_)" << iendl; } 
    328330    oss << "ENDIF"; 
    329331  } 
    … …  
    337339    if (!matchingTypeCFortran<T>()) 
    338340    { 
    339       oss << "  CALL cxios_get_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name_tmp << ")" << iendl; 
     341      oss << "  CALL cxios_get_" << className << "_" << name << " &" << iendl; 
     342      oss << "(" << className << "_hdl%daddr, " << name_tmp << ")" << iendl; 
    340343      oss << "  " << name << "_ = " << name_tmp << iendl; 
    341344    } 
    342     else oss << "  CALL cxios_get_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name << "_)" << iendl; 
     345    else { oss << "  CALL cxios_get_" << className << "_" << name << " &" << iendl; 
     346           oss << "(" << className << "_hdl%daddr, " << name << "_)" << iendl; } 
    343347    oss << "ENDIF"; 
    344348  } 
    … …  
    349353 
    350354    oss << "IF (PRESENT(" << name << "_)) THEN" << iendl; 
    351     oss << "  " << name << "__tmp = cxios_is_defined_" << className << "_" << name << "(" << className << "_hdl%daddr)" << iendl; 
     355    oss << "  " << name << "__tmp = cxios_is_defined_" << className << "_" << name << " &" << iendl; 
     356    oss << "(" << className << "_hdl%daddr)" << iendl; 
    352357    oss << "  " << name << "_ = " << name_tmp << iendl; 
    353358    oss << "ENDIF"; 
    … …  
    358363  { 
    359364    oss << "IF (PRESENT(" << name << "_)) THEN" << iendl; 
    360     oss << "  CALL cxios_set_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name << "_, len(" << name << "_))" << iendl; 
     365    oss << "  CALL cxios_set_" << className << "_" << name << " &" << iendl; 
     366    oss << "(" << className << "_hdl%daddr, " << name << "_, len(" << name << "_))" << iendl; 
    361367    oss << "ENDIF"; 
    362368  } 
    … …  
    366372  { 
    367373    oss << "IF (PRESENT(" << name << "_)) THEN" << iendl; 
    368     oss << "  CALL cxios_get_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name << "_, len(" << name << "_))" << iendl; 
     374    oss << "  CALL cxios_get_" << className << "_" << name << " &" << iendl; 
     375    oss << "(" << className << "_hdl%daddr, " << name << "_, len(" << name << "_))" << iendl; 
    369376    oss << "ENDIF"; 
    370377  } 
    … …  
    813820      oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1)))" << iendl; \ 
    814821      oss << "  " << name_tmp << " = " << name << "_" << iendl; \ 
    815       oss << "  CALL cxios_set_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
     822      oss << "  CALL cxios_set_" << className << "_" << name << " &" << iendl; \ 
     823      oss << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
    816824    } \ 
    817     else oss << "  CALL cxios_set_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; \ 
     825    else { oss << "  CALL cxios_set_" << className << "_" << name << " &" << iendl; \ 
     826           oss << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; } \ 
    818827    oss << "ENDIF"; \ 
    819828  } \ 
    … …  
    829838      oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1), SIZE(" << name << "_,2)))" << iendl; \ 
    830839      oss << "  " << name_tmp << " = " << name << "_" << iendl; \ 
    831       oss << "  CALL cxios_set_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
     840      oss << "  CALL cxios_set_" << className << "_" << name << " &" << iendl; \ 
     841      oss << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
    832842    } \ 
    833     else oss << "  CALL cxios_set_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; \ 
     843    else { oss << "  CALL cxios_set_" << className << "_" << name << " &" << iendl; \ 
     844           oss << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; } \ 
    834845    oss << "ENDIF"; \ 
    835846  } \ 
    … …  
    845856      oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1), SIZE(" << name << "_,2), SIZE(" << name << "_,3)))" << iendl; \ 
    846857      oss << "  " << name_tmp << " = " << name << "_" << iendl; \ 
    847       oss << "  CALL cxios_set_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
     858      oss << "  CALL cxios_set_" << className << "_" << name << " &" << iendl; \ 
     859      oss << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
    848860    } \ 
    849     else oss << "  CALL cxios_set_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; \ 
     861    else { oss << "  CALL cxios_set_" << className << "_" << name << " &" << iendl; \ 
     862           oss << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; } \ 
    850863    oss << "ENDIF"; \ 
    851864  }\ 
    … …  
    859872    if (!matchingTypeCFortran<T>())  \ 
    860873    { \ 
    861       oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1), SIZE(" << name << "_,2), SIZE(" << name << "_,3), SIZE(" << name << "_,4)))" << iendl; \ 
     874      oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1), SIZE(" << name << "_,2), SIZE(" << name << "_,3), &" << iendl; \ 
     875      oss << " SIZE(" << name << "_,4)))" << iendl; \ 
    862876      oss << "  " << name_tmp << " = " << name << "_" << iendl; \ 
    863       oss << "  CALL cxios_set_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
     877      oss << "  CALL cxios_set_" << className << "_" << name << " &" << iendl; \ 
     878      oss << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
    864879    } \ 
    865     else oss << "  CALL cxios_set_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; \ 
     880    else { oss << "  CALL cxios_set_" << className << "_" << name << " &" << iendl; \ 
     881           oss << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; } \ 
    866882    oss << "ENDIF"; \ 
    867883  }\ 
    … …  
    875891    if (!matchingTypeCFortran<T>())  \ 
    876892    { \ 
    877       oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1), SIZE(" << name << "_,2), SIZE(" << name << "_,3), SIZE(" << name << "_,4), SIZE(" << name << "_,5)))" << iendl; \ 
     893      oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1), SIZE(" << name << "_,2), SIZE(" << name << "_,3), &" << iendl; \ 
     894      oss << " SIZE(" << name << "_,4), SIZE(" << name << "_,5)))" << iendl; \ 
    878895      oss << "  " << name_tmp << " = " << name << "_" << iendl; \ 
    879       oss << "  CALL cxios_set_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
     896      oss << "  CALL cxios_set_" << className << "_" << name << " &" << iendl; \ 
     897      oss << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
    880898    } \ 
    881     else oss << "  CALL cxios_set_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; \ 
     899    else { oss << "  CALL cxios_set_" << className << "_" << name << " &" << iendl; \ 
     900           oss << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; } \ 
    882901    oss << "ENDIF"; \ 
    883902  }\ 
    … …  
    891910    if (!matchingTypeCFortran<T>())  \ 
    892911    { \ 
    893       oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1), SIZE(" << name << "_,2), SIZE(" << name << "_,3), SIZE(" << name << "_,4), SIZE(" << name << "_,5), SIZE(" << name << "_,6)))" << iendl; \ 
     912      oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1), SIZE(" << name << "_,2), SIZE(" << name << "_,3), &" << iendl; \ 
     913      oss << " SIZE(" << name << "_,4), SIZE(" << name << "_,5), SIZE(" << name << "_,6)))" << iendl; \ 
    894914      oss << "  " << name_tmp << " = " << name << "_" << iendl; \ 
    895       oss << "  CALL cxios_set_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
     915      oss << "  CALL cxios_set_" << className << "_" << name << " &" << iendl; \ 
     916      oss << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
    896917    } \ 
    897     else oss << "  CALL cxios_set_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; \ 
     918    else { oss << "  CALL cxios_set_" << className << "_" << name << " &" << iendl; \ 
     919           oss << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; } \ 
    898920    oss << "ENDIF"; \ 
    899921  }\ 
    … …  
    907929    if (!matchingTypeCFortran<T>())  \ 
    908930    { \ 
    909       oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1), SIZE(" << name << "_,2), SIZE(" << name << "_,3), SIZE(" << name << "_,4), SIZE(" << name << "_,5), SIZE(" << name << "_,6), SIZE(" << name << "_,7)))" << iendl; \ 
     931      oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1), SIZE(" << name << "_,2), SIZE(" << name << "_,3), &" << iendl; \ 
     932      oss << " SIZE(" << name << "_,4), SIZE(" << name << "_,5), SIZE(" << name << "_,6), &" << iendl; \ 
     933      oss << " SIZE(" << name << "_,7)))" << iendl; \ 
    910934      oss << "  " << name_tmp << " = " << name << "_" << iendl; \ 
    911       oss << "  CALL cxios_set_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
     935      oss << "  CALL cxios_set_" << className << "_" << name << " &" << iendl; \ 
     936      oss << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
    912937    } \ 
    913     else oss << "  CALL cxios_set_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; \ 
     938    else { oss << "  CALL cxios_set_" << className << "_" << name << " &" << iendl; \ 
     939           oss << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; } \ 
    914940    oss << "ENDIF"; \ 
    915941  } 
    … …  
    931957    { \ 
    932958      oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1)))" << iendl; \ 
    933       oss << "  CALL cxios_get_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
     959      oss << "  CALL cxios_get_" << className << "_" << name << " &" << iendl; \ 
     960      oss << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
    934961      oss << "  " << name << "_ = " << name_tmp << iendl; \ 
    935962    } \ 
    936     else oss << "  CALL cxios_get_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; \ 
     963    else { oss << "  CALL cxios_get_" << className << "_" << name << " &" << iendl; \ 
     964           oss << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; } \ 
    937965    oss << "ENDIF"; \ 
    938966  } \ 
    … …  
    947975    { \ 
    948976      oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1), SIZE(" << name << "_,2)))" << iendl; \ 
    949       oss << "  CALL cxios_get_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
     977      oss << "  CALL cxios_get_" << className << "_" << name << " &" << iendl; \ 
     978      oss << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
    950979      oss << "  " << name << "_ = " << name_tmp << iendl; \ 
    951980    } \ 
    952     else oss << "  CALL cxios_get_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; \ 
     981    else { oss << "  CALL cxios_get_" << className << "_" << name << " &" << iendl; \ 
     982           oss << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; } \ 
    953983    oss << "ENDIF"; \ 
    954984  } \ 
    … …  
    963993    { \ 
    964994      oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1), SIZE(" << name << "_,2), SIZE(" << name << "_,3)))" << iendl; \ 
    965       oss << "  CALL cxios_get_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
     995      oss << "  CALL cxios_get_" << className << "_" << name << " &" << iendl; \ 
     996      oss << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
    966997      oss << "  " << name << "_ = " << name_tmp << iendl; \ 
    967998      } \ 
    968     else oss << "  CALL cxios_get_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; \ 
     999    else { oss << "  CALL cxios_get_" << className << "_" << name << " &" << iendl; \ 
     1000           oss << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; } \ 
    9691001    oss << "ENDIF"; \ 
    9701002  } \ 
    … …  
    9781010    if (!matchingTypeCFortran<T>())  \ 
    9791011    { \ 
    980       oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1), SIZE(" << name << "_,2), SIZE(" << name << "_,3), SIZE(" << name << "_,4)))" << iendl; \ 
    981       oss << "  CALL cxios_get_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
     1012      oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1), SIZE(" << name << "_,2), SIZE(" << name << "_,3), &" << iendl; \ 
     1013      oss << " SIZE(" << name << "_,4)))" << iendl; \ 
     1014      oss << "  CALL cxios_get_" << className << "_" << name << " &" << iendl; \ 
     1015      oss << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
    9821016      oss << "  " << name << "_ = " << name_tmp << iendl; \ 
    9831017      } \ 
    984     else oss << "  CALL cxios_get_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; \ 
     1018    else { oss << "  CALL cxios_get_" << className << "_" << name << " &" << iendl; \ 
     1019           oss << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; }\ 
    9851020    oss << "ENDIF"; \ 
    9861021  } \ 
    … …  
    9941029    if (!matchingTypeCFortran<T>())  \ 
    9951030    { \ 
    996       oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1), SIZE(" << name << "_,2), SIZE(" << name << "_,3), SIZE(" << name << "_,4), SIZE(" << name << "_,5)))" << iendl; \ 
    997       oss << "  CALL cxios_get_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
     1031      oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1), SIZE(" << name << "_,2), SIZE(" << name << "_,3), &" << iendl; \ 
     1032      oss << " SIZE(" << name << "_,4), SIZE(" << name << "_,5)))" << iendl; \ 
     1033      oss << "  CALL cxios_get_" << className << "_" << name << " &" << iendl; \ 
     1034      oss << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
    9981035      oss << "  " << name << "_ = " << name_tmp << iendl; \ 
    9991036      } \ 
    1000     else oss << "  CALL cxios_get_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; \ 
     1037    else { oss << "  CALL cxios_get_" << className << "_" << name << " &" << iendl; \ 
     1038           oss << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; } \ 
    10011039    oss << "ENDIF"; \ 
    10021040  }\ 
    … …  
    10101048    if (!matchingTypeCFortran<T>())  \ 
    10111049    { \ 
    1012       oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1), SIZE(" << name << "_,2), SIZE(" << name << "_,3), SIZE(" << name << "_,4), SIZE(" << name << "_,5), SIZE(" << name << "_,6)))" << iendl; \ 
    1013       oss << "  CALL cxios_get_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
     1050      oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1), SIZE(" << name << "_,2), SIZE(" << name << "_,3), &" << iendl; \ 
     1051      oss << " SIZE(" << name << "_,4), SIZE(" << name << "_,5), SIZE(" << name << "_,6)))" << iendl; \ 
     1052      oss << "  CALL cxios_get_" << className << "_" << name << " &" << iendl; \ 
     1053      oss << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
    10141054      oss << "  " << name << "_ = " << name_tmp << iendl; \ 
    10151055      } \ 
    1016     else oss << "  CALL cxios_get_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; \ 
     1056    else { oss << "  CALL cxios_get_" << className << "_" << name << " &" << iendl; \ 
     1057           oss << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; } \ 
    10171058    oss << "ENDIF"; \ 
    10181059  } \ 
    … …  
    10261067    if (!matchingTypeCFortran<T>())  \ 
    10271068    { \ 
    1028       oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1), SIZE(" << name << "_,2), SIZE(" << name << "_,3), SIZE(" << name << "_,4), SIZE(" << name << "_,5), SIZE(" << name << "_,6), SIZE(" << name << "_,7)))" << iendl; \ 
    1029       oss << "  CALL cxios_get_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
     1069      oss << "  ALLOCATE(" << name_tmp << "(SIZE(" << name << "_,1), SIZE(" << name << "_,2), SIZE(" << name << "_,3), &" << iendl; \ 
     1070      oss << " SIZE(" << name << "_,4), SIZE(" << name << "_,5), SIZE(" << name << "_,6), &" << iendl; \ 
     1071      oss << " SIZE(" << name << "_,7)))" << iendl; \ 
     1072      oss << "  CALL cxios_get_" << className << "_" << name << " &" << iendl; \ 
     1073      oss << "(" << className << "_hdl%daddr, " << name_tmp << ", SHAPE(" << name << "_))" << iendl; \ 
    10301074      oss << "  " << name << "_ = " << name_tmp << iendl; \ 
    10311075      } \ 
    1032     else oss << "  CALL cxios_get_" << className << "_" << name << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; \ 
     1076    else { oss << "  CALL cxios_get_" << className << "_" << name << " &" << iendl; \ 
     1077           oss << "(" << className << "_hdl%daddr, " << name << "_, SHAPE(" << name << "_))" << iendl; } \ 
    10331078    oss << "ENDIF"; \ 
    10341079  } 

  • XIOS/trunk/src/interface/fortran_attr/iaxis_attr.F90

    r817 r966  
    3737      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:) 
    3838 
    39       CALL xios(get_axis_handle)(axis_id,axis_hdl) 
     39      CALL xios(get_axis_handle) & 
     40      (axis_id,axis_hdl) 
    4041      CALL xios(set_axis_attr_hdl_)   & 
    4142      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  & 
    … …  
    102103 
    103104      IF (PRESENT(axis_ref_)) THEN 
    104         CALL cxios_set_axis_axis_ref(axis_hdl%daddr, axis_ref_, len(axis_ref_)) 
     105        CALL cxios_set_axis_axis_ref & 
     106      (axis_hdl%daddr, axis_ref_, len(axis_ref_)) 
    105107      ENDIF 
    106108 
    107109      IF (PRESENT(begin_)) THEN 
    108         CALL cxios_set_axis_begin(axis_hdl%daddr, begin_) 
     110        CALL cxios_set_axis_begin & 
     111      (axis_hdl%daddr, begin_) 
    109112      ENDIF 
    110113 
    111114      IF (PRESENT(bounds_)) THEN 
    112         CALL cxios_set_axis_bounds(axis_hdl%daddr, bounds_, SHAPE(bounds_)) 
     115        CALL cxios_set_axis_bounds & 
     116      (axis_hdl%daddr, bounds_, SHAPE(bounds_)) 
    113117      ENDIF 
    114118 
    115119      IF (PRESENT(data_begin_)) THEN 
    116         CALL cxios_set_axis_data_begin(axis_hdl%daddr, data_begin_) 
     120        CALL cxios_set_axis_data_begin & 
     121      (axis_hdl%daddr, data_begin_) 
    117122      ENDIF 
    118123 
    119124      IF (PRESENT(data_index_)) THEN 
    120         CALL cxios_set_axis_data_index(axis_hdl%daddr, data_index_, SHAPE(data_index_)) 
     125        CALL cxios_set_axis_data_index & 
     126      (axis_hdl%daddr, data_index_, SHAPE(data_index_)) 
    121127      ENDIF 
    122128 
    123129      IF (PRESENT(data_n_)) THEN 
    124         CALL cxios_set_axis_data_n(axis_hdl%daddr, data_n_) 
     130        CALL cxios_set_axis_data_n & 
     131      (axis_hdl%daddr, data_n_) 
    125132      ENDIF 
    126133 
    127134      IF (PRESENT(index_)) THEN 
    128         CALL cxios_set_axis_index(axis_hdl%daddr, index_, SHAPE(index_)) 
     135        CALL cxios_set_axis_index & 
     136      (axis_hdl%daddr, index_, SHAPE(index_)) 
    129137      ENDIF 
    130138 
    131139      IF (PRESENT(long_name_)) THEN 
    132         CALL cxios_set_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_)) 
     140        CALL cxios_set_axis_long_name & 
     141      (axis_hdl%daddr, long_name_, len(long_name_)) 
    133142      ENDIF 
    134143 
    … …  
    136145        ALLOCATE(mask__tmp(SIZE(mask_,1))) 
    137146        mask__tmp = mask_ 
    138         CALL cxios_set_axis_mask(axis_hdl%daddr, mask__tmp, SHAPE(mask_)) 
     147        CALL cxios_set_axis_mask & 
     148      (axis_hdl%daddr, mask__tmp, SHAPE(mask_)) 
    139149      ENDIF 
    140150 
    141151      IF (PRESENT(n_)) THEN 
    142         CALL cxios_set_axis_n(axis_hdl%daddr, n_) 
     152        CALL cxios_set_axis_n & 
     153      (axis_hdl%daddr, n_) 
    143154      ENDIF 
    144155 
    145156      IF (PRESENT(n_distributed_partition_)) THEN 
    146         CALL cxios_set_axis_n_distributed_partition(axis_hdl%daddr, n_distributed_partition_) 
     157        CALL cxios_set_axis_n_distributed_partition & 
     158      (axis_hdl%daddr, n_distributed_partition_) 
    147159      ENDIF 
    148160 
    149161      IF (PRESENT(n_glo_)) THEN 
    150         CALL cxios_set_axis_n_glo(axis_hdl%daddr, n_glo_) 
     162        CALL cxios_set_axis_n_glo & 
     163      (axis_hdl%daddr, n_glo_) 
    151164      ENDIF 
    152165 
    153166      IF (PRESENT(name_)) THEN 
    154         CALL cxios_set_axis_name(axis_hdl%daddr, name_, len(name_)) 
     167        CALL cxios_set_axis_name & 
     168      (axis_hdl%daddr, name_, len(name_)) 
    155169      ENDIF 
    156170 
    157171      IF (PRESENT(positive_)) THEN 
    158         CALL cxios_set_axis_positive(axis_hdl%daddr, positive_, len(positive_)) 
     172        CALL cxios_set_axis_positive & 
     173      (axis_hdl%daddr, positive_, len(positive_)) 
    159174      ENDIF 
    160175 
    161176      IF (PRESENT(standard_name_)) THEN 
    162         CALL cxios_set_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_)) 
     177        CALL cxios_set_axis_standard_name & 
     178      (axis_hdl%daddr, standard_name_, len(standard_name_)) 
    163179      ENDIF 
    164180 
    165181      IF (PRESENT(unit_)) THEN 
    166         CALL cxios_set_axis_unit(axis_hdl%daddr, unit_, len(unit_)) 
     182        CALL cxios_set_axis_unit & 
     183      (axis_hdl%daddr, unit_, len(unit_)) 
    167184      ENDIF 
    168185 
    169186      IF (PRESENT(value_)) THEN 
    170         CALL cxios_set_axis_value(axis_hdl%daddr, value_, SHAPE(value_)) 
     187        CALL cxios_set_axis_value & 
     188      (axis_hdl%daddr, value_, SHAPE(value_)) 
    171189      ENDIF 
    172190 
    … …  
    199217      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:) 
    200218 
    201       CALL xios(get_axis_handle)(axis_id,axis_hdl) 
     219      CALL xios(get_axis_handle) & 
     220      (axis_id,axis_hdl) 
    202221      CALL xios(get_axis_attr_hdl_)   & 
    203222      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  & 
    … …  
    264283 
    265284      IF (PRESENT(axis_ref_)) THEN 
    266         CALL cxios_get_axis_axis_ref(axis_hdl%daddr, axis_ref_, len(axis_ref_)) 
     285        CALL cxios_get_axis_axis_ref & 
     286      (axis_hdl%daddr, axis_ref_, len(axis_ref_)) 
    267287      ENDIF 
    268288 
    269289      IF (PRESENT(begin_)) THEN 
    270         CALL cxios_get_axis_begin(axis_hdl%daddr, begin_) 
     290        CALL cxios_get_axis_begin & 
     291      (axis_hdl%daddr, begin_) 
    271292      ENDIF 
    272293 
    273294      IF (PRESENT(bounds_)) THEN 
    274         CALL cxios_get_axis_bounds(axis_hdl%daddr, bounds_, SHAPE(bounds_)) 
     295        CALL cxios_get_axis_bounds & 
     296      (axis_hdl%daddr, bounds_, SHAPE(bounds_)) 
    275297      ENDIF 
    276298 
    277299      IF (PRESENT(data_begin_)) THEN 
    278         CALL cxios_get_axis_data_begin(axis_hdl%daddr, data_begin_) 
     300        CALL cxios_get_axis_data_begin & 
     301      (axis_hdl%daddr, data_begin_) 
    279302      ENDIF 
    280303 
    281304      IF (PRESENT(data_index_)) THEN 
    282         CALL cxios_get_axis_data_index(axis_hdl%daddr, data_index_, SHAPE(data_index_)) 
     305        CALL cxios_get_axis_data_index & 
     306      (axis_hdl%daddr, data_index_, SHAPE(data_index_)) 
    283307      ENDIF 
    284308 
    285309      IF (PRESENT(data_n_)) THEN 
    286         CALL cxios_get_axis_data_n(axis_hdl%daddr, data_n_) 
     310        CALL cxios_get_axis_data_n & 
     311      (axis_hdl%daddr, data_n_) 
    287312      ENDIF 
    288313 
    289314      IF (PRESENT(index_)) THEN 
    290         CALL cxios_get_axis_index(axis_hdl%daddr, index_, SHAPE(index_)) 
     315        CALL cxios_get_axis_index & 
     316      (axis_hdl%daddr, index_, SHAPE(index_)) 
    291317      ENDIF 
    292318 
    293319      IF (PRESENT(long_name_)) THEN 
    294         CALL cxios_get_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_)) 
     320        CALL cxios_get_axis_long_name & 
     321      (axis_hdl%daddr, long_name_, len(long_name_)) 
    295322      ENDIF 
    296323 
    297324      IF (PRESENT(mask_)) THEN 
    298325        ALLOCATE(mask__tmp(SIZE(mask_,1))) 
    299         CALL cxios_get_axis_mask(axis_hdl%daddr, mask__tmp, SHAPE(mask_)) 
     326        CALL cxios_get_axis_mask & 
     327      (axis_hdl%daddr, mask__tmp, SHAPE(mask_)) 
    300328        mask_ = mask__tmp 
    301329      ENDIF 
    302330 
    303331      IF (PRESENT(n_)) THEN 
    304         CALL cxios_get_axis_n(axis_hdl%daddr, n_) 
     332        CALL cxios_get_axis_n & 
     333      (axis_hdl%daddr, n_) 
    305334      ENDIF 
    306335 
    307336      IF (PRESENT(n_distributed_partition_)) THEN 
    308         CALL cxios_get_axis_n_distributed_partition(axis_hdl%daddr, n_distributed_partition_) 
     337        CALL cxios_get_axis_n_distributed_partition & 
     338      (axis_hdl%daddr, n_distributed_partition_) 
    309339      ENDIF 
    310340 
    311341      IF (PRESENT(n_glo_)) THEN 
    312         CALL cxios_get_axis_n_glo(axis_hdl%daddr, n_glo_) 
     342        CALL cxios_get_axis_n_glo & 
     343      (axis_hdl%daddr, n_glo_) 
    313344      ENDIF 
    314345 
    315346      IF (PRESENT(name_)) THEN 
    316         CALL cxios_get_axis_name(axis_hdl%daddr, name_, len(name_)) 
     347        CALL cxios_get_axis_name & 
     348      (axis_hdl%daddr, name_, len(name_)) 
    317349      ENDIF 
    318350 
    319351      IF (PRESENT(positive_)) THEN 
    320         CALL cxios_get_axis_positive(axis_hdl%daddr, positive_, len(positive_)) 
     352        CALL cxios_get_axis_positive & 
     353      (axis_hdl%daddr, positive_, len(positive_)) 
    321354      ENDIF 
    322355 
    323356      IF (PRESENT(standard_name_)) THEN 
    324         CALL cxios_get_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_)) 
     357        CALL cxios_get_axis_standard_name & 
     358      (axis_hdl%daddr, standard_name_, len(standard_name_)) 
    325359      ENDIF 
    326360 
    327361      IF (PRESENT(unit_)) THEN 
    328         CALL cxios_get_axis_unit(axis_hdl%daddr, unit_, len(unit_)) 
     362        CALL cxios_get_axis_unit & 
     363      (axis_hdl%daddr, unit_, len(unit_)) 
    329364      ENDIF 
    330365 
    331366      IF (PRESENT(value_)) THEN 
    332         CALL cxios_get_axis_value(axis_hdl%daddr, value_, SHAPE(value_)) 
     367        CALL cxios_get_axis_value & 
     368      (axis_hdl%daddr, value_, SHAPE(value_)) 
    333369      ENDIF 
    334370 
    … …  
    377413      LOGICAL(KIND=C_BOOL) :: value_tmp 
    378414 
    379       CALL xios(get_axis_handle)(axis_id,axis_hdl) 
     415      CALL xios(get_axis_handle) & 
     416      (axis_id,axis_hdl) 
    380417      CALL xios(is_defined_axis_attr_hdl_)   & 
    381418      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  & 
    … …  
    474511 
    475512      IF (PRESENT(axis_ref_)) THEN 
    476         axis_ref__tmp = cxios_is_defined_axis_axis_ref(axis_hdl%daddr) 
     513        axis_ref__tmp = cxios_is_defined_axis_axis_ref & 
     514      (axis_hdl%daddr) 
    477515        axis_ref_ = axis_ref__tmp 
    478516      ENDIF 
    479517 
    480518      IF (PRESENT(begin_)) THEN 
    481         begin__tmp = cxios_is_defined_axis_begin(axis_hdl%daddr) 
     519        begin__tmp = cxios_is_defined_axis_begin & 
     520      (axis_hdl%daddr) 
    482521        begin_ = begin__tmp 
    483522      ENDIF 
    484523 
    485524      IF (PRESENT(bounds_)) THEN 
    486         bounds__tmp = cxios_is_defined_axis_bounds(axis_hdl%daddr) 
     525        bounds__tmp = cxios_is_defined_axis_bounds & 
     526      (axis_hdl%daddr) 
    487527        bounds_ = bounds__tmp 
    488528      ENDIF 
    489529 
    490530      IF (PRESENT(data_begin_)) THEN 
    491         data_begin__tmp = cxios_is_defined_axis_data_begin(axis_hdl%daddr) 
     531        data_begin__tmp = cxios_is_defined_axis_data_begin & 
     532      (axis_hdl%daddr) 
    492533        data_begin_ = data_begin__tmp 
    493534      ENDIF 
    494535 
    495536      IF (PRESENT(data_index_)) THEN 
    496         data_index__tmp = cxios_is_defined_axis_data_index(axis_hdl%daddr) 
     537        data_index__tmp = cxios_is_defined_axis_data_index & 
     538      (axis_hdl%daddr) 
    497539        data_index_ = data_index__tmp 
    498540      ENDIF 
    499541 
    500542      IF (PRESENT(data_n_)) THEN 
    501         data_n__tmp = cxios_is_defined_axis_data_n(axis_hdl%daddr) 
     543        data_n__tmp = cxios_is_defined_axis_data_n & 
     544      (axis_hdl%daddr) 
    502545        data_n_ = data_n__tmp 
    503546      ENDIF 
    504547 
    505548      IF (PRESENT(index_)) THEN 
    506         index__tmp = cxios_is_defined_axis_index(axis_hdl%daddr) 
     549        index__tmp = cxios_is_defined_axis_index & 
     550      (axis_hdl%daddr) 
    507551        index_ = index__tmp 
    508552      ENDIF 
    509553 
    510554      IF (PRESENT(long_name_)) THEN 
    511         long_name__tmp = cxios_is_defined_axis_long_name(axis_hdl%daddr) 
     555        long_name__tmp = cxios_is_defined_axis_long_name & 
     556      (axis_hdl%daddr) 
    512557        long_name_ = long_name__tmp 
    513558      ENDIF 
    514559 
    515560      IF (PRESENT(mask_)) THEN 
    516         mask__tmp = cxios_is_defined_axis_mask(axis_hdl%daddr) 
     561        mask__tmp = cxios_is_defined_axis_mask & 
     562      (axis_hdl%daddr) 
    517563        mask_ = mask__tmp 
    518564      ENDIF 
    519565 
    520566      IF (PRESENT(n_)) THEN 
    521         n__tmp = cxios_is_defined_axis_n(axis_hdl%daddr) 
     567        n__tmp = cxios_is_defined_axis_n & 
     568      (axis_hdl%daddr) 
    522569        n_ = n__tmp 
    523570      ENDIF 
    524571 
    525572      IF (PRESENT(n_distributed_partition_)) THEN 
    526         n_distributed_partition__tmp = cxios_is_defined_axis_n_distributed_partition(axis_hdl%daddr) 
     573        n_distributed_partition__tmp = cxios_is_defined_axis_n_distributed_partition & 
     574      (axis_hdl%daddr) 
    527575        n_distributed_partition_ = n_distributed_partition__tmp 
    528576      ENDIF 
    529577 
    530578      IF (PRESENT(n_glo_)) THEN 
    531         n_glo__tmp = cxios_is_defined_axis_n_glo(axis_hdl%daddr) 
     579        n_glo__tmp = cxios_is_defined_axis_n_glo & 
     580      (axis_hdl%daddr) 
    532581        n_glo_ = n_glo__tmp 
    533582      ENDIF 
    534583 
    535584      IF (PRESENT(name_)) THEN 
    536         name__tmp = cxios_is_defined_axis_name(axis_hdl%daddr) 
     585        name__tmp = cxios_is_defined_axis_name & 
     586      (axis_hdl%daddr) 
    537587        name_ = name__tmp 
    538588      ENDIF 
    539589 
    540590      IF (PRESENT(positive_)) THEN 
    541         positive__tmp = cxios_is_defined_axis_positive(axis_hdl%daddr) 
     591        positive__tmp = cxios_is_defined_axis_positive & 
     592      (axis_hdl%daddr) 
    542593        positive_ = positive__tmp 
    543594      ENDIF 
    544595 
    545596      IF (PRESENT(standard_name_)) THEN 
    546         standard_name__tmp = cxios_is_defined_axis_standard_name(axis_hdl%daddr) 
     597        standard_name__tmp = cxios_is_defined_axis_standard_name & 
     598      (axis_hdl%daddr) 
    547599        standard_name_ = standard_name__tmp 
    548600      ENDIF 
    549601 
    550602      IF (PRESENT(unit_)) THEN 
    551         unit__tmp = cxios_is_defined_axis_unit(axis_hdl%daddr) 
     603        unit__tmp = cxios_is_defined_axis_unit & 
     604      (axis_hdl%daddr) 
    552605        unit_ = unit__tmp 
    553606      ENDIF 
    554607 
    555608      IF (PRESENT(value_)) THEN 
    556         value__tmp = cxios_is_defined_axis_value(axis_hdl%daddr) 
     609        value__tmp = cxios_is_defined_axis_value & 
     610      (axis_hdl%daddr) 
    557611        value_ = value__tmp 
    558612      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/iaxisgroup_attr.F90

    r817 r966  
    3838      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:) 
    3939 
    40       CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl) 
     40      CALL xios(get_axisgroup_handle) & 
     41      (axisgroup_id,axisgroup_hdl) 
    4142      CALL xios(set_axisgroup_attr_hdl_)   & 
    4243      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name  & 
    … …  
    105106 
    106107      IF (PRESENT(axis_ref_)) THEN 
    107         CALL cxios_set_axisgroup_axis_ref(axisgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 
     108        CALL cxios_set_axisgroup_axis_ref & 
     109      (axisgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 
    108110      ENDIF 
    109111 
    110112      IF (PRESENT(begin_)) THEN 
    111         CALL cxios_set_axisgroup_begin(axisgroup_hdl%daddr, begin_) 
     113        CALL cxios_set_axisgroup_begin & 
     114      (axisgroup_hdl%daddr, begin_) 
    112115      ENDIF 
    113116 
    114117      IF (PRESENT(bounds_)) THEN 
    115         CALL cxios_set_axisgroup_bounds(axisgroup_hdl%daddr, bounds_, SHAPE(bounds_)) 
     118        CALL cxios_set_axisgroup_bounds & 
     119      (axisgroup_hdl%daddr, bounds_, SHAPE(bounds_)) 
    116120      ENDIF 
    117121 
    118122      IF (PRESENT(data_begin_)) THEN 
    119         CALL cxios_set_axisgroup_data_begin(axisgroup_hdl%daddr, data_begin_) 
     123        CALL cxios_set_axisgroup_data_begin & 
     124      (axisgroup_hdl%daddr, data_begin_) 
    120125      ENDIF 
    121126 
    122127      IF (PRESENT(data_index_)) THEN 
    123         CALL cxios_set_axisgroup_data_index(axisgroup_hdl%daddr, data_index_, SHAPE(data_index_)) 
     128        CALL cxios_set_axisgroup_data_index & 
     129      (axisgroup_hdl%daddr, data_index_, SHAPE(data_index_)) 
    124130      ENDIF 
    125131 
    126132      IF (PRESENT(data_n_)) THEN 
    127         CALL cxios_set_axisgroup_data_n(axisgroup_hdl%daddr, data_n_) 
     133        CALL cxios_set_axisgroup_data_n & 
     134      (axisgroup_hdl%daddr, data_n_) 
    128135      ENDIF 
    129136 
    130137      IF (PRESENT(group_ref_)) THEN 
    131         CALL cxios_set_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_)) 
     138        CALL cxios_set_axisgroup_group_ref & 
     139      (axisgroup_hdl%daddr, group_ref_, len(group_ref_)) 
    132140      ENDIF 
    133141 
    134142      IF (PRESENT(index_)) THEN 
    135         CALL cxios_set_axisgroup_index(axisgroup_hdl%daddr, index_, SHAPE(index_)) 
     143        CALL cxios_set_axisgroup_index & 
     144      (axisgroup_hdl%daddr, index_, SHAPE(index_)) 
    136145      ENDIF 
    137146 
    138147      IF (PRESENT(long_name_)) THEN 
    139         CALL cxios_set_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_)) 
     148        CALL cxios_set_axisgroup_long_name & 
     149      (axisgroup_hdl%daddr, long_name_, len(long_name_)) 
    140150      ENDIF 
    141151 
    … …  
    143153        ALLOCATE(mask__tmp(SIZE(mask_,1))) 
    144154        mask__tmp = mask_ 
    145         CALL cxios_set_axisgroup_mask(axisgroup_hdl%daddr, mask__tmp, SHAPE(mask_)) 
     155        CALL cxios_set_axisgroup_mask & 
     156      (axisgroup_hdl%daddr, mask__tmp, SHAPE(mask_)) 
    146157      ENDIF 
    147158 
    148159      IF (PRESENT(n_)) THEN 
    149         CALL cxios_set_axisgroup_n(axisgroup_hdl%daddr, n_) 
     160        CALL cxios_set_axisgroup_n & 
     161      (axisgroup_hdl%daddr, n_) 
    150162      ENDIF 
    151163 
    152164      IF (PRESENT(n_distributed_partition_)) THEN 
    153         CALL cxios_set_axisgroup_n_distributed_partition(axisgroup_hdl%daddr, n_distributed_partition_) 
     165        CALL cxios_set_axisgroup_n_distributed_partition & 
     166      (axisgroup_hdl%daddr, n_distributed_partition_) 
    154167      ENDIF 
    155168 
    156169      IF (PRESENT(n_glo_)) THEN 
    157         CALL cxios_set_axisgroup_n_glo(axisgroup_hdl%daddr, n_glo_) 
     170        CALL cxios_set_axisgroup_n_glo & 
     171      (axisgroup_hdl%daddr, n_glo_) 
    158172      ENDIF 
    159173 
    160174      IF (PRESENT(name_)) THEN 
    161         CALL cxios_set_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_)) 
     175        CALL cxios_set_axisgroup_name & 
     176      (axisgroup_hdl%daddr, name_, len(name_)) 
    162177      ENDIF 
    163178 
    164179      IF (PRESENT(positive_)) THEN 
    165         CALL cxios_set_axisgroup_positive(axisgroup_hdl%daddr, positive_, len(positive_)) 
     180        CALL cxios_set_axisgroup_positive & 
     181      (axisgroup_hdl%daddr, positive_, len(positive_)) 
    166182      ENDIF 
    167183 
    168184      IF (PRESENT(standard_name_)) THEN 
    169         CALL cxios_set_axisgroup_standard_name(axisgroup_hdl%daddr, standard_name_, len(standard_name_)) 
     185        CALL cxios_set_axisgroup_standard_name & 
     186      (axisgroup_hdl%daddr, standard_name_, len(standard_name_)) 
    170187      ENDIF 
    171188 
    172189      IF (PRESENT(unit_)) THEN 
    173         CALL cxios_set_axisgroup_unit(axisgroup_hdl%daddr, unit_, len(unit_)) 
     190        CALL cxios_set_axisgroup_unit & 
     191      (axisgroup_hdl%daddr, unit_, len(unit_)) 
    174192      ENDIF 
    175193 
    176194      IF (PRESENT(value_)) THEN 
    177         CALL cxios_set_axisgroup_value(axisgroup_hdl%daddr, value_, SHAPE(value_)) 
     195        CALL cxios_set_axisgroup_value & 
     196      (axisgroup_hdl%daddr, value_, SHAPE(value_)) 
    178197      ENDIF 
    179198 
    … …  
    207226      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:) 
    208227 
    209       CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl) 
     228      CALL xios(get_axisgroup_handle) & 
     229      (axisgroup_id,axisgroup_hdl) 
    210230      CALL xios(get_axisgroup_attr_hdl_)   & 
    211231      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name  & 
    … …  
    274294 
    275295      IF (PRESENT(axis_ref_)) THEN 
    276         CALL cxios_get_axisgroup_axis_ref(axisgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 
     296        CALL cxios_get_axisgroup_axis_ref & 
     297      (axisgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 
    277298      ENDIF 
    278299 
    279300      IF (PRESENT(begin_)) THEN 
    280         CALL cxios_get_axisgroup_begin(axisgroup_hdl%daddr, begin_) 
     301        CALL cxios_get_axisgroup_begin & 
     302      (axisgroup_hdl%daddr, begin_) 
    281303      ENDIF 
    282304 
    283305      IF (PRESENT(bounds_)) THEN 
    284         CALL cxios_get_axisgroup_bounds(axisgroup_hdl%daddr, bounds_, SHAPE(bounds_)) 
     306        CALL cxios_get_axisgroup_bounds & 
     307      (axisgroup_hdl%daddr, bounds_, SHAPE(bounds_)) 
    285308      ENDIF 
    286309 
    287310      IF (PRESENT(data_begin_)) THEN 
    288         CALL cxios_get_axisgroup_data_begin(axisgroup_hdl%daddr, data_begin_) 
     311        CALL cxios_get_axisgroup_data_begin & 
     312      (axisgroup_hdl%daddr, data_begin_) 
    289313      ENDIF 
    290314 
    291315      IF (PRESENT(data_index_)) THEN 
    292         CALL cxios_get_axisgroup_data_index(axisgroup_hdl%daddr, data_index_, SHAPE(data_index_)) 
     316        CALL cxios_get_axisgroup_data_index & 
     317      (axisgroup_hdl%daddr, data_index_, SHAPE(data_index_)) 
    293318      ENDIF 
    294319 
    295320      IF (PRESENT(data_n_)) THEN 
    296         CALL cxios_get_axisgroup_data_n(axisgroup_hdl%daddr, data_n_) 
     321        CALL cxios_get_axisgroup_data_n & 
     322      (axisgroup_hdl%daddr, data_n_) 
    297323      ENDIF 
    298324 
    299325      IF (PRESENT(group_ref_)) THEN 
    300         CALL cxios_get_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_)) 
     326        CALL cxios_get_axisgroup_group_ref & 
     327      (axisgroup_hdl%daddr, group_ref_, len(group_ref_)) 
    301328      ENDIF 
    302329 
    303330      IF (PRESENT(index_)) THEN 
    304         CALL cxios_get_axisgroup_index(axisgroup_hdl%daddr, index_, SHAPE(index_)) 
     331        CALL cxios_get_axisgroup_index & 
     332      (axisgroup_hdl%daddr, index_, SHAPE(index_)) 
    305333      ENDIF 
    306334 
    307335      IF (PRESENT(long_name_)) THEN 
    308         CALL cxios_get_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_)) 
     336        CALL cxios_get_axisgroup_long_name & 
     337      (axisgroup_hdl%daddr, long_name_, len(long_name_)) 
    309338      ENDIF 
    310339 
    311340      IF (PRESENT(mask_)) THEN 
    312341        ALLOCATE(mask__tmp(SIZE(mask_,1))) 
    313         CALL cxios_get_axisgroup_mask(axisgroup_hdl%daddr, mask__tmp, SHAPE(mask_)) 
     342        CALL cxios_get_axisgroup_mask & 
     343      (axisgroup_hdl%daddr, mask__tmp, SHAPE(mask_)) 
    314344        mask_ = mask__tmp 
    315345      ENDIF 
    316346 
    317347      IF (PRESENT(n_)) THEN 
    318         CALL cxios_get_axisgroup_n(axisgroup_hdl%daddr, n_) 
     348        CALL cxios_get_axisgroup_n & 
     349      (axisgroup_hdl%daddr, n_) 
    319350      ENDIF 
    320351 
    321352      IF (PRESENT(n_distributed_partition_)) THEN 
    322         CALL cxios_get_axisgroup_n_distributed_partition(axisgroup_hdl%daddr, n_distributed_partition_) 
     353        CALL cxios_get_axisgroup_n_distributed_partition & 
     354      (axisgroup_hdl%daddr, n_distributed_partition_) 
    323355      ENDIF 
    324356 
    325357      IF (PRESENT(n_glo_)) THEN 
    326         CALL cxios_get_axisgroup_n_glo(axisgroup_hdl%daddr, n_glo_) 
     358        CALL cxios_get_axisgroup_n_glo & 
     359      (axisgroup_hdl%daddr, n_glo_) 
    327360      ENDIF 
    328361 
    329362      IF (PRESENT(name_)) THEN 
    330         CALL cxios_get_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_)) 
     363        CALL cxios_get_axisgroup_name & 
     364      (axisgroup_hdl%daddr, name_, len(name_)) 
    331365      ENDIF 
    332366 
    333367      IF (PRESENT(positive_)) THEN 
    334         CALL cxios_get_axisgroup_positive(axisgroup_hdl%daddr, positive_, len(positive_)) 
     368        CALL cxios_get_axisgroup_positive & 
     369      (axisgroup_hdl%daddr, positive_, len(positive_)) 
    335370      ENDIF 
    336371 
    337372      IF (PRESENT(standard_name_)) THEN 
    338         CALL cxios_get_axisgroup_standard_name(axisgroup_hdl%daddr, standard_name_, len(standard_name_)) 
     373        CALL cxios_get_axisgroup_standard_name & 
     374      (axisgroup_hdl%daddr, standard_name_, len(standard_name_)) 
    339375      ENDIF 
    340376 
    341377      IF (PRESENT(unit_)) THEN 
    342         CALL cxios_get_axisgroup_unit(axisgroup_hdl%daddr, unit_, len(unit_)) 
     378        CALL cxios_get_axisgroup_unit & 
     379      (axisgroup_hdl%daddr, unit_, len(unit_)) 
    343380      ENDIF 
    344381 
    345382      IF (PRESENT(value_)) THEN 
    346         CALL cxios_get_axisgroup_value(axisgroup_hdl%daddr, value_, SHAPE(value_)) 
     383        CALL cxios_get_axisgroup_value & 
     384      (axisgroup_hdl%daddr, value_, SHAPE(value_)) 
    347385      ENDIF 
    348386 
    … …  
    393431      LOGICAL(KIND=C_BOOL) :: value_tmp 
    394432 
    395       CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl) 
     433      CALL xios(get_axisgroup_handle) & 
     434      (axisgroup_id,axisgroup_hdl) 
    396435      CALL xios(is_defined_axisgroup_attr_hdl_)   & 
    397436      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name  & 
    … …  
    494533 
    495534      IF (PRESENT(axis_ref_)) THEN 
    496         axis_ref__tmp = cxios_is_defined_axisgroup_axis_ref(axisgroup_hdl%daddr) 
     535        axis_ref__tmp = cxios_is_defined_axisgroup_axis_ref & 
     536      (axisgroup_hdl%daddr) 
    497537        axis_ref_ = axis_ref__tmp 
    498538      ENDIF 
    499539 
    500540      IF (PRESENT(begin_)) THEN 
    501         begin__tmp = cxios_is_defined_axisgroup_begin(axisgroup_hdl%daddr) 
     541        begin__tmp = cxios_is_defined_axisgroup_begin & 
     542      (axisgroup_hdl%daddr) 
    502543        begin_ = begin__tmp 
    503544      ENDIF 
    504545 
    505546      IF (PRESENT(bounds_)) THEN 
    506         bounds__tmp = cxios_is_defined_axisgroup_bounds(axisgroup_hdl%daddr) 
     547        bounds__tmp = cxios_is_defined_axisgroup_bounds & 
     548      (axisgroup_hdl%daddr) 
    507549        bounds_ = bounds__tmp 
    508550      ENDIF 
    509551 
    510552      IF (PRESENT(data_begin_)) THEN 
    511         data_begin__tmp = cxios_is_defined_axisgroup_data_begin(axisgroup_hdl%daddr) 
     553        data_begin__tmp = cxios_is_defined_axisgroup_data_begin & 
     554      (axisgroup_hdl%daddr) 
    512555        data_begin_ = data_begin__tmp 
    513556      ENDIF 
    514557 
    515558      IF (PRESENT(data_index_)) THEN 
    516         data_index__tmp = cxios_is_defined_axisgroup_data_index(axisgroup_hdl%daddr) 
     559        data_index__tmp = cxios_is_defined_axisgroup_data_index & 
     560      (axisgroup_hdl%daddr) 
    517561        data_index_ = data_index__tmp 
    518562      ENDIF 
    519563 
    520564      IF (PRESENT(data_n_)) THEN 
    521         data_n__tmp = cxios_is_defined_axisgroup_data_n(axisgroup_hdl%daddr) 
     565        data_n__tmp = cxios_is_defined_axisgroup_data_n & 
     566      (axisgroup_hdl%daddr) 
    522567        data_n_ = data_n__tmp 
    523568      ENDIF 
    524569 
    525570      IF (PRESENT(group_ref_)) THEN 
    526         group_ref__tmp = cxios_is_defined_axisgroup_group_ref(axisgroup_hdl%daddr) 
     571        group_ref__tmp = cxios_is_defined_axisgroup_group_ref & 
     572      (axisgroup_hdl%daddr) 
    527573        group_ref_ = group_ref__tmp 
    528574      ENDIF 
    529575 
    530576      IF (PRESENT(index_)) THEN 
    531         index__tmp = cxios_is_defined_axisgroup_index(axisgroup_hdl%daddr) 
     577        index__tmp = cxios_is_defined_axisgroup_index & 
     578      (axisgroup_hdl%daddr) 
    532579        index_ = index__tmp 
    533580      ENDIF 
    534581 
    535582      IF (PRESENT(long_name_)) THEN 
    536         long_name__tmp = cxios_is_defined_axisgroup_long_name(axisgroup_hdl%daddr) 
     583        long_name__tmp = cxios_is_defined_axisgroup_long_name & 
     584      (axisgroup_hdl%daddr) 
    537585        long_name_ = long_name__tmp 
    538586      ENDIF 
    539587 
    540588      IF (PRESENT(mask_)) THEN 
    541         mask__tmp = cxios_is_defined_axisgroup_mask(axisgroup_hdl%daddr) 
     589        mask__tmp = cxios_is_defined_axisgroup_mask & 
     590      (axisgroup_hdl%daddr) 
    542591        mask_ = mask__tmp 
    543592      ENDIF 
    544593 
    545594      IF (PRESENT(n_)) THEN 
    546         n__tmp = cxios_is_defined_axisgroup_n(axisgroup_hdl%daddr) 
     595        n__tmp = cxios_is_defined_axisgroup_n & 
     596      (axisgroup_hdl%daddr) 
    547597        n_ = n__tmp 
    548598      ENDIF 
    549599 
    550600      IF (PRESENT(n_distributed_partition_)) THEN 
    551         n_distributed_partition__tmp = cxios_is_defined_axisgroup_n_distributed_partition(axisgroup_hdl%daddr) 
     601        n_distributed_partition__tmp = cxios_is_defined_axisgroup_n_distributed_partition & 
     602      (axisgroup_hdl%daddr) 
    552603        n_distributed_partition_ = n_distributed_partition__tmp 
    553604      ENDIF 
    554605 
    555606      IF (PRESENT(n_glo_)) THEN 
    556         n_glo__tmp = cxios_is_defined_axisgroup_n_glo(axisgroup_hdl%daddr) 
     607        n_glo__tmp = cxios_is_defined_axisgroup_n_glo & 
     608      (axisgroup_hdl%daddr) 
    557609        n_glo_ = n_glo__tmp 
    558610      ENDIF 
    559611 
    560612      IF (PRESENT(name_)) THEN 
    561         name__tmp = cxios_is_defined_axisgroup_name(axisgroup_hdl%daddr) 
     613        name__tmp = cxios_is_defined_axisgroup_name & 
     614      (axisgroup_hdl%daddr) 
    562615        name_ = name__tmp 
    563616      ENDIF 
    564617 
    565618      IF (PRESENT(positive_)) THEN 
    566         positive__tmp = cxios_is_defined_axisgroup_positive(axisgroup_hdl%daddr) 
     619        positive__tmp = cxios_is_defined_axisgroup_positive & 
     620      (axisgroup_hdl%daddr) 
    567621        positive_ = positive__tmp 
    568622      ENDIF 
    569623 
    570624      IF (PRESENT(standard_name_)) THEN 
    571         standard_name__tmp = cxios_is_defined_axisgroup_standard_name(axisgroup_hdl%daddr) 
     625        standard_name__tmp = cxios_is_defined_axisgroup_standard_name & 
     626      (axisgroup_hdl%daddr) 
    572627        standard_name_ = standard_name__tmp 
    573628      ENDIF 
    574629 
    575630      IF (PRESENT(unit_)) THEN 
    576         unit__tmp = cxios_is_defined_axisgroup_unit(axisgroup_hdl%daddr) 
     631        unit__tmp = cxios_is_defined_axisgroup_unit & 
     632      (axisgroup_hdl%daddr) 
    577633        unit_ = unit__tmp 
    578634      ENDIF 
    579635 
    580636      IF (PRESENT(value_)) THEN 
    581         value__tmp = cxios_is_defined_axisgroup_value(axisgroup_hdl%daddr) 
     637        value__tmp = cxios_is_defined_axisgroup_value & 
     638      (axisgroup_hdl%daddr) 
    582639        value_ = value__tmp 
    583640      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/icalendar_wrapper_attr.F90

    r674 r966  
    2929      INTEGER  , OPTIONAL, INTENT(IN) :: year_length 
    3030 
    31       CALL xios(get_calendar_wrapper_handle)(calendar_wrapper_id,calendar_wrapper_hdl) 
     31      CALL xios(get_calendar_wrapper_handle) & 
     32      (calendar_wrapper_id,calendar_wrapper_hdl) 
    3233      CALL xios(set_calendar_wrapper_attr_hdl_)   & 
    3334      ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  & 
    … …  
    7778 
    7879      IF (PRESENT(day_length_)) THEN 
    79         CALL cxios_set_calendar_wrapper_day_length(calendar_wrapper_hdl%daddr, day_length_) 
     80        CALL cxios_set_calendar_wrapper_day_length & 
     81      (calendar_wrapper_hdl%daddr, day_length_) 
    8082      ENDIF 
    8183 
    8284      IF (PRESENT(leap_year_drift_)) THEN 
    83         CALL cxios_set_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl%daddr, leap_year_drift_) 
     85        CALL cxios_set_calendar_wrapper_leap_year_drift & 
     86      (calendar_wrapper_hdl%daddr, leap_year_drift_) 
    8487      ENDIF 
    8588 
    8689      IF (PRESENT(leap_year_drift_offset_)) THEN 
    87         CALL cxios_set_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl%daddr, leap_year_drift_offset_) 
     90        CALL cxios_set_calendar_wrapper_leap_year_drift_offset & 
     91      (calendar_wrapper_hdl%daddr, leap_year_drift_offset_) 
    8892      ENDIF 
    8993 
    9094      IF (PRESENT(leap_year_month_)) THEN 
    91         CALL cxios_set_calendar_wrapper_leap_year_month(calendar_wrapper_hdl%daddr, leap_year_month_) 
     95        CALL cxios_set_calendar_wrapper_leap_year_month & 
     96      (calendar_wrapper_hdl%daddr, leap_year_month_) 
    9297      ENDIF 
    9398 
    9499      IF (PRESENT(month_lengths_)) THEN 
    95         CALL cxios_set_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr, month_lengths_, SHAPE(month_lengths_)) 
     100        CALL cxios_set_calendar_wrapper_month_lengths & 
     101      (calendar_wrapper_hdl%daddr, month_lengths_, SHAPE(month_lengths_)) 
    96102      ENDIF 
    97103 
    98104      IF (PRESENT(start_date_)) THEN 
    99         CALL cxios_set_calendar_wrapper_start_date(calendar_wrapper_hdl%daddr, start_date_, len(start_date_)) 
     105        CALL cxios_set_calendar_wrapper_start_date & 
     106      (calendar_wrapper_hdl%daddr, start_date_, len(start_date_)) 
    100107      ENDIF 
    101108 
    102109      IF (PRESENT(time_origin_)) THEN 
    103         CALL cxios_set_calendar_wrapper_time_origin(calendar_wrapper_hdl%daddr, time_origin_, len(time_origin_)) 
     110        CALL cxios_set_calendar_wrapper_time_origin & 
     111      (calendar_wrapper_hdl%daddr, time_origin_, len(time_origin_)) 
    104112      ENDIF 
    105113 
    106114      IF (PRESENT(timestep_)) THEN 
    107         CALL cxios_set_calendar_wrapper_timestep(calendar_wrapper_hdl%daddr, timestep_) 
     115        CALL cxios_set_calendar_wrapper_timestep & 
     116      (calendar_wrapper_hdl%daddr, timestep_) 
    108117      ENDIF 
    109118 
    110119      IF (PRESENT(type_)) THEN 
    111         CALL cxios_set_calendar_wrapper_type(calendar_wrapper_hdl%daddr, type_, len(type_)) 
     120        CALL cxios_set_calendar_wrapper_type & 
     121      (calendar_wrapper_hdl%daddr, type_, len(type_)) 
    112122      ENDIF 
    113123 
    114124      IF (PRESENT(year_length_)) THEN 
    115         CALL cxios_set_calendar_wrapper_year_length(calendar_wrapper_hdl%daddr, year_length_) 
     125        CALL cxios_set_calendar_wrapper_year_length & 
     126      (calendar_wrapper_hdl%daddr, year_length_) 
    116127      ENDIF 
    117128 
    … …  
    136147      INTEGER  , OPTIONAL, INTENT(OUT) :: year_length 
    137148 
    138       CALL xios(get_calendar_wrapper_handle)(calendar_wrapper_id,calendar_wrapper_hdl) 
     149      CALL xios(get_calendar_wrapper_handle) & 
     150      (calendar_wrapper_id,calendar_wrapper_hdl) 
    139151      CALL xios(get_calendar_wrapper_attr_hdl_)   & 
    140152      ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  & 
    … …  
    184196 
    185197      IF (PRESENT(day_length_)) THEN 
    186         CALL cxios_get_calendar_wrapper_day_length(calendar_wrapper_hdl%daddr, day_length_) 
     198        CALL cxios_get_calendar_wrapper_day_length & 
     199      (calendar_wrapper_hdl%daddr, day_length_) 
    187200      ENDIF 
    188201 
    189202      IF (PRESENT(leap_year_drift_)) THEN 
    190         CALL cxios_get_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl%daddr, leap_year_drift_) 
     203        CALL cxios_get_calendar_wrapper_leap_year_drift & 
     204      (calendar_wrapper_hdl%daddr, leap_year_drift_) 
    191205      ENDIF 
    192206 
    193207      IF (PRESENT(leap_year_drift_offset_)) THEN 
    194         CALL cxios_get_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl%daddr, leap_year_drift_offset_) 
     208        CALL cxios_get_calendar_wrapper_leap_year_drift_offset & 
     209      (calendar_wrapper_hdl%daddr, leap_year_drift_offset_) 
    195210      ENDIF 
    196211 
    197212      IF (PRESENT(leap_year_month_)) THEN 
    198         CALL cxios_get_calendar_wrapper_leap_year_month(calendar_wrapper_hdl%daddr, leap_year_month_) 
     213        CALL cxios_get_calendar_wrapper_leap_year_month & 
     214      (calendar_wrapper_hdl%daddr, leap_year_month_) 
    199215      ENDIF 
    200216 
    201217      IF (PRESENT(month_lengths_)) THEN 
    202         CALL cxios_get_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr, month_lengths_, SHAPE(month_lengths_)) 
     218        CALL cxios_get_calendar_wrapper_month_lengths & 
     219      (calendar_wrapper_hdl%daddr, month_lengths_, SHAPE(month_lengths_)) 
    203220      ENDIF 
    204221 
    205222      IF (PRESENT(start_date_)) THEN 
    206         CALL cxios_get_calendar_wrapper_start_date(calendar_wrapper_hdl%daddr, start_date_, len(start_date_)) 
     223        CALL cxios_get_calendar_wrapper_start_date & 
     224      (calendar_wrapper_hdl%daddr, start_date_, len(start_date_)) 
    207225      ENDIF 
    208226 
    209227      IF (PRESENT(time_origin_)) THEN 
    210         CALL cxios_get_calendar_wrapper_time_origin(calendar_wrapper_hdl%daddr, time_origin_, len(time_origin_)) 
     228        CALL cxios_get_calendar_wrapper_time_origin & 
     229      (calendar_wrapper_hdl%daddr, time_origin_, len(time_origin_)) 
    211230      ENDIF 
    212231 
    213232      IF (PRESENT(timestep_)) THEN 
    214         CALL cxios_get_calendar_wrapper_timestep(calendar_wrapper_hdl%daddr, timestep_) 
     233        CALL cxios_get_calendar_wrapper_timestep & 
     234      (calendar_wrapper_hdl%daddr, timestep_) 
    215235      ENDIF 
    216236 
    217237      IF (PRESENT(type_)) THEN 
    218         CALL cxios_get_calendar_wrapper_type(calendar_wrapper_hdl%daddr, type_, len(type_)) 
     238        CALL cxios_get_calendar_wrapper_type & 
     239      (calendar_wrapper_hdl%daddr, type_, len(type_)) 
    219240      ENDIF 
    220241 
    221242      IF (PRESENT(year_length_)) THEN 
    222         CALL cxios_get_calendar_wrapper_year_length(calendar_wrapper_hdl%daddr, year_length_) 
     243        CALL cxios_get_calendar_wrapper_year_length & 
     244      (calendar_wrapper_hdl%daddr, year_length_) 
    223245      ENDIF 
    224246 
    … …  
    253275      LOGICAL(KIND=C_BOOL) :: year_length_tmp 
    254276 
    255       CALL xios(get_calendar_wrapper_handle)(calendar_wrapper_id,calendar_wrapper_hdl) 
     277      CALL xios(get_calendar_wrapper_handle) & 
     278      (calendar_wrapper_id,calendar_wrapper_hdl) 
    256279      CALL xios(is_defined_calendar_wrapper_attr_hdl_)   & 
    257280      ( calendar_wrapper_hdl, day_length, leap_year_drift, leap_year_drift_offset, leap_year_month  & 
    … …  
    321344 
    322345      IF (PRESENT(day_length_)) THEN 
    323         day_length__tmp = cxios_is_defined_calendar_wrapper_day_length(calendar_wrapper_hdl%daddr) 
     346        day_length__tmp = cxios_is_defined_calendar_wrapper_day_length & 
     347      (calendar_wrapper_hdl%daddr) 
    324348        day_length_ = day_length__tmp 
    325349      ENDIF 
    326350 
    327351      IF (PRESENT(leap_year_drift_)) THEN 
    328         leap_year_drift__tmp = cxios_is_defined_calendar_wrapper_leap_year_drift(calendar_wrapper_hdl%daddr) 
     352        leap_year_drift__tmp = cxios_is_defined_calendar_wrapper_leap_year_drift & 
     353      (calendar_wrapper_hdl%daddr) 
    329354        leap_year_drift_ = leap_year_drift__tmp 
    330355      ENDIF 
    331356 
    332357      IF (PRESENT(leap_year_drift_offset_)) THEN 
    333         leap_year_drift_offset__tmp = cxios_is_defined_calendar_wrapper_leap_year_drift_offset(calendar_wrapper_hdl%daddr) 
     358        leap_year_drift_offset__tmp = cxios_is_defined_calendar_wrapper_leap_year_drift_offset & 
     359      (calendar_wrapper_hdl%daddr) 
    334360        leap_year_drift_offset_ = leap_year_drift_offset__tmp 
    335361      ENDIF 
    336362 
    337363      IF (PRESENT(leap_year_month_)) THEN 
    338         leap_year_month__tmp = cxios_is_defined_calendar_wrapper_leap_year_month(calendar_wrapper_hdl%daddr) 
     364        leap_year_month__tmp = cxios_is_defined_calendar_wrapper_leap_year_month & 
     365      (calendar_wrapper_hdl%daddr) 
    339366        leap_year_month_ = leap_year_month__tmp 
    340367      ENDIF 
    341368 
    342369      IF (PRESENT(month_lengths_)) THEN 
    343         month_lengths__tmp = cxios_is_defined_calendar_wrapper_month_lengths(calendar_wrapper_hdl%daddr) 
     370        month_lengths__tmp = cxios_is_defined_calendar_wrapper_month_lengths & 
     371      (calendar_wrapper_hdl%daddr) 
    344372        month_lengths_ = month_lengths__tmp 
    345373      ENDIF 
    346374 
    347375      IF (PRESENT(start_date_)) THEN 
    348         start_date__tmp = cxios_is_defined_calendar_wrapper_start_date(calendar_wrapper_hdl%daddr) 
     376        start_date__tmp = cxios_is_defined_calendar_wrapper_start_date & 
     377      (calendar_wrapper_hdl%daddr) 
    349378        start_date_ = start_date__tmp 
    350379      ENDIF 
    351380 
    352381      IF (PRESENT(time_origin_)) THEN 
    353         time_origin__tmp = cxios_is_defined_calendar_wrapper_time_origin(calendar_wrapper_hdl%daddr) 
     382        time_origin__tmp = cxios_is_defined_calendar_wrapper_time_origin & 
     383      (calendar_wrapper_hdl%daddr) 
    354384        time_origin_ = time_origin__tmp 
    355385      ENDIF 
    356386 
    357387      IF (PRESENT(timestep_)) THEN 
    358         timestep__tmp = cxios_is_defined_calendar_wrapper_timestep(calendar_wrapper_hdl%daddr) 
     388        timestep__tmp = cxios_is_defined_calendar_wrapper_timestep & 
     389      (calendar_wrapper_hdl%daddr) 
    359390        timestep_ = timestep__tmp 
    360391      ENDIF 
    361392 
    362393      IF (PRESENT(type_)) THEN 
    363         type__tmp = cxios_is_defined_calendar_wrapper_type(calendar_wrapper_hdl%daddr) 
     394        type__tmp = cxios_is_defined_calendar_wrapper_type & 
     395      (calendar_wrapper_hdl%daddr) 
    364396        type_ = type__tmp 
    365397      ENDIF 
    366398 
    367399      IF (PRESENT(year_length_)) THEN 
    368         year_length__tmp = cxios_is_defined_calendar_wrapper_year_length(calendar_wrapper_hdl%daddr) 
     400        year_length__tmp = cxios_is_defined_calendar_wrapper_year_length & 
     401      (calendar_wrapper_hdl%daddr) 
    369402        year_length_ = year_length__tmp 
    370403      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/icompute_connectivity_domain_attr.F90

    r934 r966  
    2222      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    2323 
    24       CALL xios(get_compute_connectivity_domain_handle)(compute_connectivity_domain_id,compute_connectivity_domain_hdl) 
     24      CALL xios(get_compute_connectivity_domain_handle) & 
     25      (compute_connectivity_domain_id,compute_connectivity_domain_hdl) 
    2526      CALL xios(set_compute_connectivity_domain_attr_hdl_)   & 
    2627      ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type ) 
    … …  
    5455 
    5556      IF (PRESENT(local_neighbor_)) THEN 
    56         CALL cxios_set_compute_connectivity_domain_local_neighbor(compute_connectivity_domain_hdl%daddr, local_neighbor_, SHAPE(local_neighbor_)) 
     57        CALL cxios_set_compute_connectivity_domain_local_neighbor & 
     58      (compute_connectivity_domain_hdl%daddr, local_neighbor_, SHAPE(local_neighbor_)) 
    5759      ENDIF 
    5860 
    5961      IF (PRESENT(n_neighbor_)) THEN 
    60         CALL cxios_set_compute_connectivity_domain_n_neighbor(compute_connectivity_domain_hdl%daddr, n_neighbor_, SHAPE(n_neighbor_)) 
     62        CALL cxios_set_compute_connectivity_domain_n_neighbor & 
     63      (compute_connectivity_domain_hdl%daddr, n_neighbor_, SHAPE(n_neighbor_)) 
    6164      ENDIF 
    6265 
    6366      IF (PRESENT(n_neighbor_max_)) THEN 
    64         CALL cxios_set_compute_connectivity_domain_n_neighbor_max(compute_connectivity_domain_hdl%daddr, n_neighbor_max_) 
     67        CALL cxios_set_compute_connectivity_domain_n_neighbor_max & 
     68      (compute_connectivity_domain_hdl%daddr, n_neighbor_max_) 
    6569      ENDIF 
    6670 
    6771      IF (PRESENT(type_)) THEN 
    68         CALL cxios_set_compute_connectivity_domain_type(compute_connectivity_domain_hdl%daddr, type_, len(type_)) 
     72        CALL cxios_set_compute_connectivity_domain_type & 
     73      (compute_connectivity_domain_hdl%daddr, type_, len(type_)) 
    6974      ENDIF 
    7075 
    … …  
    8287      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    8388 
    84       CALL xios(get_compute_connectivity_domain_handle)(compute_connectivity_domain_id,compute_connectivity_domain_hdl) 
     89      CALL xios(get_compute_connectivity_domain_handle) & 
     90      (compute_connectivity_domain_id,compute_connectivity_domain_hdl) 
    8591      CALL xios(get_compute_connectivity_domain_attr_hdl_)   & 
    8692      ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type ) 
    … …  
    114120 
    115121      IF (PRESENT(local_neighbor_)) THEN 
    116         CALL cxios_get_compute_connectivity_domain_local_neighbor(compute_connectivity_domain_hdl%daddr, local_neighbor_, SHAPE(local_neighbor_)) 
     122        CALL cxios_get_compute_connectivity_domain_local_neighbor & 
     123      (compute_connectivity_domain_hdl%daddr, local_neighbor_, SHAPE(local_neighbor_)) 
    117124      ENDIF 
    118125 
    119126      IF (PRESENT(n_neighbor_)) THEN 
    120         CALL cxios_get_compute_connectivity_domain_n_neighbor(compute_connectivity_domain_hdl%daddr, n_neighbor_, SHAPE(n_neighbor_)) 
     127        CALL cxios_get_compute_connectivity_domain_n_neighbor & 
     128      (compute_connectivity_domain_hdl%daddr, n_neighbor_, SHAPE(n_neighbor_)) 
    121129      ENDIF 
    122130 
    123131      IF (PRESENT(n_neighbor_max_)) THEN 
    124         CALL cxios_get_compute_connectivity_domain_n_neighbor_max(compute_connectivity_domain_hdl%daddr, n_neighbor_max_) 
     132        CALL cxios_get_compute_connectivity_domain_n_neighbor_max & 
     133      (compute_connectivity_domain_hdl%daddr, n_neighbor_max_) 
    125134      ENDIF 
    126135 
    127136      IF (PRESENT(type_)) THEN 
    128         CALL cxios_get_compute_connectivity_domain_type(compute_connectivity_domain_hdl%daddr, type_, len(type_)) 
     137        CALL cxios_get_compute_connectivity_domain_type & 
     138      (compute_connectivity_domain_hdl%daddr, type_, len(type_)) 
    129139      ENDIF 
    130140 
    … …  
    146156      LOGICAL(KIND=C_BOOL) :: type_tmp 
    147157 
    148       CALL xios(get_compute_connectivity_domain_handle)(compute_connectivity_domain_id,compute_connectivity_domain_hdl) 
     158      CALL xios(get_compute_connectivity_domain_handle) & 
     159      (compute_connectivity_domain_id,compute_connectivity_domain_hdl) 
    149160      CALL xios(is_defined_compute_connectivity_domain_attr_hdl_)   & 
    150161      ( compute_connectivity_domain_hdl, local_neighbor, n_neighbor, n_neighbor_max, type ) 
    … …  
    186197 
    187198      IF (PRESENT(local_neighbor_)) THEN 
    188         local_neighbor__tmp = cxios_is_defined_compute_connectivity_domain_local_neighbor(compute_connectivity_domain_hdl%daddr) 
     199        local_neighbor__tmp = cxios_is_defined_compute_connectivity_domain_local_neighbor & 
     200      (compute_connectivity_domain_hdl%daddr) 
    189201        local_neighbor_ = local_neighbor__tmp 
    190202      ENDIF 
    191203 
    192204      IF (PRESENT(n_neighbor_)) THEN 
    193         n_neighbor__tmp = cxios_is_defined_compute_connectivity_domain_n_neighbor(compute_connectivity_domain_hdl%daddr) 
     205        n_neighbor__tmp = cxios_is_defined_compute_connectivity_domain_n_neighbor & 
     206      (compute_connectivity_domain_hdl%daddr) 
    194207        n_neighbor_ = n_neighbor__tmp 
    195208      ENDIF 
    196209 
    197210      IF (PRESENT(n_neighbor_max_)) THEN 
    198         n_neighbor_max__tmp = cxios_is_defined_compute_connectivity_domain_n_neighbor_max(compute_connectivity_domain_hdl%daddr) 
     211        n_neighbor_max__tmp = cxios_is_defined_compute_connectivity_domain_n_neighbor_max & 
     212      (compute_connectivity_domain_hdl%daddr) 
    199213        n_neighbor_max_ = n_neighbor_max__tmp 
    200214      ENDIF 
    201215 
    202216      IF (PRESENT(type_)) THEN 
    203         type__tmp = cxios_is_defined_compute_connectivity_domain_type(compute_connectivity_domain_hdl%daddr) 
     217        type__tmp = cxios_is_defined_compute_connectivity_domain_type & 
     218      (compute_connectivity_domain_hdl%daddr) 
    204219        type_ = type__tmp 
    205220      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/icontext_attr.F90

    r581 r966  
    1919      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir 
    2020 
    21       CALL xios(get_context_handle)(context_id,context_hdl) 
     21      CALL xios(get_context_handle) & 
     22      (context_id,context_hdl) 
    2223      CALL xios(set_context_attr_hdl_)   & 
    2324      ( context_hdl, output_dir ) 
    … …  
    4546 
    4647      IF (PRESENT(output_dir_)) THEN 
    47         CALL cxios_set_context_output_dir(context_hdl%daddr, output_dir_, len(output_dir_)) 
     48        CALL cxios_set_context_output_dir & 
     49      (context_hdl%daddr, output_dir_, len(output_dir_)) 
    4850      ENDIF 
    4951 
    … …  
    5860      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir 
    5961 
    60       CALL xios(get_context_handle)(context_id,context_hdl) 
     62      CALL xios(get_context_handle) & 
     63      (context_id,context_hdl) 
    6164      CALL xios(get_context_attr_hdl_)   & 
    6265      ( context_hdl, output_dir ) 
    … …  
    8487 
    8588      IF (PRESENT(output_dir_)) THEN 
    86         CALL cxios_get_context_output_dir(context_hdl%daddr, output_dir_, len(output_dir_)) 
     89        CALL cxios_get_context_output_dir & 
     90      (context_hdl%daddr, output_dir_, len(output_dir_)) 
    8791      ENDIF 
    8892 
    … …  
    98102      LOGICAL(KIND=C_BOOL) :: output_dir_tmp 
    99103 
    100       CALL xios(get_context_handle)(context_id,context_hdl) 
     104      CALL xios(get_context_handle) & 
     105      (context_id,context_hdl) 
    101106      CALL xios(is_defined_context_attr_hdl_)   & 
    102107      ( context_hdl, output_dir ) 
    … …  
    126131 
    127132      IF (PRESENT(output_dir_)) THEN 
    128         output_dir__tmp = cxios_is_defined_context_output_dir(context_hdl%daddr) 
     133        output_dir__tmp = cxios_is_defined_context_output_dir & 
     134      (context_hdl%daddr) 
    129135        output_dir_ = output_dir__tmp 
    130136      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90

    r789 r966  
    5555      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    5656 
    57       CALL xios(get_domain_handle)(domain_id,domain_hdl) 
     57      CALL xios(get_domain_handle) & 
     58      (domain_id,domain_hdl) 
    5859      CALL xios(set_domain_attr_hdl_)   & 
    5960      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    … …  
    160161 
    161162      IF (PRESENT(area_)) THEN 
    162         CALL cxios_set_domain_area(domain_hdl%daddr, area_, SHAPE(area_)) 
     163        CALL cxios_set_domain_area & 
     164      (domain_hdl%daddr, area_, SHAPE(area_)) 
    163165      ENDIF 
    164166 
    165167      IF (PRESENT(bounds_lat_1d_)) THEN 
    166         CALL cxios_set_domain_bounds_lat_1d(domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_)) 
     168        CALL cxios_set_domain_bounds_lat_1d & 
     169      (domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_)) 
    167170      ENDIF 
    168171 
    169172      IF (PRESENT(bounds_lat_2d_)) THEN 
    170         CALL cxios_set_domain_bounds_lat_2d(domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_)) 
     173        CALL cxios_set_domain_bounds_lat_2d & 
     174      (domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_)) 
    171175      ENDIF 
    172176 
    173177      IF (PRESENT(bounds_lon_1d_)) THEN 
    174         CALL cxios_set_domain_bounds_lon_1d(domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_)) 
     178        CALL cxios_set_domain_bounds_lon_1d & 
     179      (domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_)) 
    175180      ENDIF 
    176181 
    177182      IF (PRESENT(bounds_lon_2d_)) THEN 
    178         CALL cxios_set_domain_bounds_lon_2d(domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_)) 
     183        CALL cxios_set_domain_bounds_lon_2d & 
     184      (domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_)) 
    179185      ENDIF 
    180186 
    181187      IF (PRESENT(data_dim_)) THEN 
    182         CALL cxios_set_domain_data_dim(domain_hdl%daddr, data_dim_) 
     188        CALL cxios_set_domain_data_dim & 
     189      (domain_hdl%daddr, data_dim_) 
    183190      ENDIF 
    184191 
    185192      IF (PRESENT(data_i_index_)) THEN 
    186         CALL cxios_set_domain_data_i_index(domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_)) 
     193        CALL cxios_set_domain_data_i_index & 
     194      (domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_)) 
    187195      ENDIF 
    188196 
    189197      IF (PRESENT(data_ibegin_)) THEN 
    190         CALL cxios_set_domain_data_ibegin(domain_hdl%daddr, data_ibegin_) 
     198        CALL cxios_set_domain_data_ibegin & 
     199      (domain_hdl%daddr, data_ibegin_) 
    191200      ENDIF 
    192201 
    193202      IF (PRESENT(data_j_index_)) THEN 
    194         CALL cxios_set_domain_data_j_index(domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_)) 
     203        CALL cxios_set_domain_data_j_index & 
     204      (domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_)) 
    195205      ENDIF 
    196206 
    197207      IF (PRESENT(data_jbegin_)) THEN 
    198         CALL cxios_set_domain_data_jbegin(domain_hdl%daddr, data_jbegin_) 
     208        CALL cxios_set_domain_data_jbegin & 
     209      (domain_hdl%daddr, data_jbegin_) 
    199210      ENDIF 
    200211 
    201212      IF (PRESENT(data_ni_)) THEN 
    202         CALL cxios_set_domain_data_ni(domain_hdl%daddr, data_ni_) 
     213        CALL cxios_set_domain_data_ni & 
     214      (domain_hdl%daddr, data_ni_) 
    203215      ENDIF 
    204216 
    205217      IF (PRESENT(data_nj_)) THEN 
    206         CALL cxios_set_domain_data_nj(domain_hdl%daddr, data_nj_) 
     218        CALL cxios_set_domain_data_nj & 
     219      (domain_hdl%daddr, data_nj_) 
    207220      ENDIF 
    208221 
    209222      IF (PRESENT(domain_ref_)) THEN 
    210         CALL cxios_set_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_)) 
     223        CALL cxios_set_domain_domain_ref & 
     224      (domain_hdl%daddr, domain_ref_, len(domain_ref_)) 
    211225      ENDIF 
    212226 
    213227      IF (PRESENT(i_index_)) THEN 
    214         CALL cxios_set_domain_i_index(domain_hdl%daddr, i_index_, SHAPE(i_index_)) 
     228        CALL cxios_set_domain_i_index & 
     229      (domain_hdl%daddr, i_index_, SHAPE(i_index_)) 
    215230      ENDIF 
    216231 
    217232      IF (PRESENT(ibegin_)) THEN 
    218         CALL cxios_set_domain_ibegin(domain_hdl%daddr, ibegin_) 
     233        CALL cxios_set_domain_ibegin & 
     234      (domain_hdl%daddr, ibegin_) 
    219235      ENDIF 
    220236 
    221237      IF (PRESENT(j_index_)) THEN 
    222         CALL cxios_set_domain_j_index(domain_hdl%daddr, j_index_, SHAPE(j_index_)) 
     238        CALL cxios_set_domain_j_index & 
     239      (domain_hdl%daddr, j_index_, SHAPE(j_index_)) 
    223240      ENDIF 
    224241 
    225242      IF (PRESENT(jbegin_)) THEN 
    226         CALL cxios_set_domain_jbegin(domain_hdl%daddr, jbegin_) 
     243        CALL cxios_set_domain_jbegin & 
     244      (domain_hdl%daddr, jbegin_) 
    227245      ENDIF 
    228246 
    229247      IF (PRESENT(latvalue_1d_)) THEN 
    230         CALL cxios_set_domain_latvalue_1d(domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_)) 
     248        CALL cxios_set_domain_latvalue_1d & 
     249      (domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_)) 
    231250      ENDIF 
    232251 
    233252      IF (PRESENT(latvalue_2d_)) THEN 
    234         CALL cxios_set_domain_latvalue_2d(domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 
     253        CALL cxios_set_domain_latvalue_2d & 
     254      (domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 
    235255      ENDIF 
    236256 
    237257      IF (PRESENT(long_name_)) THEN 
    238         CALL cxios_set_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_)) 
     258        CALL cxios_set_domain_long_name & 
     259      (domain_hdl%daddr, long_name_, len(long_name_)) 
    239260      ENDIF 
    240261 
    241262      IF (PRESENT(lonvalue_1d_)) THEN 
    242         CALL cxios_set_domain_lonvalue_1d(domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_)) 
     263        CALL cxios_set_domain_lonvalue_1d & 
     264      (domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_)) 
    243265      ENDIF 
    244266 
    245267      IF (PRESENT(lonvalue_2d_)) THEN 
    246         CALL cxios_set_domain_lonvalue_2d(domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_)) 
     268        CALL cxios_set_domain_lonvalue_2d & 
     269      (domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_)) 
    247270      ENDIF 
    248271 
    … …  
    250273        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1))) 
    251274        mask_1d__tmp = mask_1d_ 
    252         CALL cxios_set_domain_mask_1d(domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
     275        CALL cxios_set_domain_mask_1d & 
     276      (domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
    253277      ENDIF 
    254278 
    … …  
    256280        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2))) 
    257281        mask_2d__tmp = mask_2d_ 
    258         CALL cxios_set_domain_mask_2d(domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
     282        CALL cxios_set_domain_mask_2d & 
     283      (domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
    259284      ENDIF 
    260285 
    261286      IF (PRESENT(name_)) THEN 
    262         CALL cxios_set_domain_name(domain_hdl%daddr, name_, len(name_)) 
     287        CALL cxios_set_domain_name & 
     288      (domain_hdl%daddr, name_, len(name_)) 
    263289      ENDIF 
    264290 
    265291      IF (PRESENT(ni_)) THEN 
    266         CALL cxios_set_domain_ni(domain_hdl%daddr, ni_) 
     292        CALL cxios_set_domain_ni & 
     293      (domain_hdl%daddr, ni_) 
    267294      ENDIF 
    268295 
    269296      IF (PRESENT(ni_glo_)) THEN 
    270         CALL cxios_set_domain_ni_glo(domain_hdl%daddr, ni_glo_) 
     297        CALL cxios_set_domain_ni_glo & 
     298      (domain_hdl%daddr, ni_glo_) 
    271299      ENDIF 
    272300 
    273301      IF (PRESENT(nj_)) THEN 
    274         CALL cxios_set_domain_nj(domain_hdl%daddr, nj_) 
     302        CALL cxios_set_domain_nj & 
     303      (domain_hdl%daddr, nj_) 
    275304      ENDIF 
    276305 
    277306      IF (PRESENT(nj_glo_)) THEN 
    278         CALL cxios_set_domain_nj_glo(domain_hdl%daddr, nj_glo_) 
     307        CALL cxios_set_domain_nj_glo & 
     308      (domain_hdl%daddr, nj_glo_) 
    279309      ENDIF 
    280310 
    281311      IF (PRESENT(nvertex_)) THEN 
    282         CALL cxios_set_domain_nvertex(domain_hdl%daddr, nvertex_) 
     312        CALL cxios_set_domain_nvertex & 
     313      (domain_hdl%daddr, nvertex_) 
    283314      ENDIF 
    284315 
    285316      IF (PRESENT(standard_name_)) THEN 
    286         CALL cxios_set_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_)) 
     317        CALL cxios_set_domain_standard_name & 
     318      (domain_hdl%daddr, standard_name_, len(standard_name_)) 
    287319      ENDIF 
    288320 
    289321      IF (PRESENT(type_)) THEN 
    290         CALL cxios_set_domain_type(domain_hdl%daddr, type_, len(type_)) 
     322        CALL cxios_set_domain_type & 
     323      (domain_hdl%daddr, type_, len(type_)) 
    291324      ENDIF 
    292325 
    … …  
    337370      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    338371 
    339       CALL xios(get_domain_handle)(domain_id,domain_hdl) 
     372      CALL xios(get_domain_handle) & 
     373      (domain_id,domain_hdl) 
    340374      CALL xios(get_domain_attr_hdl_)   & 
    341375      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    … …  
    442476 
    443477      IF (PRESENT(area_)) THEN 
    444         CALL cxios_get_domain_area(domain_hdl%daddr, area_, SHAPE(area_)) 
     478        CALL cxios_get_domain_area & 
     479      (domain_hdl%daddr, area_, SHAPE(area_)) 
    445480      ENDIF 
    446481 
    447482      IF (PRESENT(bounds_lat_1d_)) THEN 
    448         CALL cxios_get_domain_bounds_lat_1d(domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_)) 
     483        CALL cxios_get_domain_bounds_lat_1d & 
     484      (domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_)) 
    449485      ENDIF 
    450486 
    451487      IF (PRESENT(bounds_lat_2d_)) THEN 
    452         CALL cxios_get_domain_bounds_lat_2d(domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_)) 
     488        CALL cxios_get_domain_bounds_lat_2d & 
     489      (domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_)) 
    453490      ENDIF 
    454491 
    455492      IF (PRESENT(bounds_lon_1d_)) THEN 
    456         CALL cxios_get_domain_bounds_lon_1d(domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_)) 
     493        CALL cxios_get_domain_bounds_lon_1d & 
     494      (domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_)) 
    457495      ENDIF 
    458496 
    459497      IF (PRESENT(bounds_lon_2d_)) THEN 
    460         CALL cxios_get_domain_bounds_lon_2d(domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_)) 
     498        CALL cxios_get_domain_bounds_lon_2d & 
     499      (domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_)) 
    461500      ENDIF 
    462501 
    463502      IF (PRESENT(data_dim_)) THEN 
    464         CALL cxios_get_domain_data_dim(domain_hdl%daddr, data_dim_) 
     503        CALL cxios_get_domain_data_dim & 
     504      (domain_hdl%daddr, data_dim_) 
    465505      ENDIF 
    466506 
    467507      IF (PRESENT(data_i_index_)) THEN 
    468         CALL cxios_get_domain_data_i_index(domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_)) 
     508        CALL cxios_get_domain_data_i_index & 
     509      (domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_)) 
    469510      ENDIF 
    470511 
    471512      IF (PRESENT(data_ibegin_)) THEN 
    472         CALL cxios_get_domain_data_ibegin(domain_hdl%daddr, data_ibegin_) 
     513        CALL cxios_get_domain_data_ibegin & 
     514      (domain_hdl%daddr, data_ibegin_) 
    473515      ENDIF 
    474516 
    475517      IF (PRESENT(data_j_index_)) THEN 
    476         CALL cxios_get_domain_data_j_index(domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_)) 
     518        CALL cxios_get_domain_data_j_index & 
     519      (domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_)) 
    477520      ENDIF 
    478521 
    479522      IF (PRESENT(data_jbegin_)) THEN 
    480         CALL cxios_get_domain_data_jbegin(domain_hdl%daddr, data_jbegin_) 
     523        CALL cxios_get_domain_data_jbegin & 
     524      (domain_hdl%daddr, data_jbegin_) 
    481525      ENDIF 
    482526 
    483527      IF (PRESENT(data_ni_)) THEN 
    484         CALL cxios_get_domain_data_ni(domain_hdl%daddr, data_ni_) 
     528        CALL cxios_get_domain_data_ni & 
     529      (domain_hdl%daddr, data_ni_) 
    485530      ENDIF 
    486531 
    487532      IF (PRESENT(data_nj_)) THEN 
    488         CALL cxios_get_domain_data_nj(domain_hdl%daddr, data_nj_) 
     533        CALL cxios_get_domain_data_nj & 
     534      (domain_hdl%daddr, data_nj_) 
    489535      ENDIF 
    490536 
    491537      IF (PRESENT(domain_ref_)) THEN 
    492         CALL cxios_get_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_)) 
     538        CALL cxios_get_domain_domain_ref & 
     539      (domain_hdl%daddr, domain_ref_, len(domain_ref_)) 
    493540      ENDIF 
    494541 
    495542      IF (PRESENT(i_index_)) THEN 
    496         CALL cxios_get_domain_i_index(domain_hdl%daddr, i_index_, SHAPE(i_index_)) 
     543        CALL cxios_get_domain_i_index & 
     544      (domain_hdl%daddr, i_index_, SHAPE(i_index_)) 
    497545      ENDIF 
    498546 
    499547      IF (PRESENT(ibegin_)) THEN 
    500         CALL cxios_get_domain_ibegin(domain_hdl%daddr, ibegin_) 
     548        CALL cxios_get_domain_ibegin & 
     549      (domain_hdl%daddr, ibegin_) 
    501550      ENDIF 
    502551 
    503552      IF (PRESENT(j_index_)) THEN 
    504         CALL cxios_get_domain_j_index(domain_hdl%daddr, j_index_, SHAPE(j_index_)) 
     553        CALL cxios_get_domain_j_index & 
     554      (domain_hdl%daddr, j_index_, SHAPE(j_index_)) 
    505555      ENDIF 
    506556 
    507557      IF (PRESENT(jbegin_)) THEN 
    508         CALL cxios_get_domain_jbegin(domain_hdl%daddr, jbegin_) 
     558        CALL cxios_get_domain_jbegin & 
     559      (domain_hdl%daddr, jbegin_) 
    509560      ENDIF 
    510561 
    511562      IF (PRESENT(latvalue_1d_)) THEN 
    512         CALL cxios_get_domain_latvalue_1d(domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_)) 
     563        CALL cxios_get_domain_latvalue_1d & 
     564      (domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_)) 
    513565      ENDIF 
    514566 
    515567      IF (PRESENT(latvalue_2d_)) THEN 
    516         CALL cxios_get_domain_latvalue_2d(domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 
     568        CALL cxios_get_domain_latvalue_2d & 
     569      (domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 
    517570      ENDIF 
    518571 
    519572      IF (PRESENT(long_name_)) THEN 
    520         CALL cxios_get_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_)) 
     573        CALL cxios_get_domain_long_name & 
     574      (domain_hdl%daddr, long_name_, len(long_name_)) 
    521575      ENDIF 
    522576 
    523577      IF (PRESENT(lonvalue_1d_)) THEN 
    524         CALL cxios_get_domain_lonvalue_1d(domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_)) 
     578        CALL cxios_get_domain_lonvalue_1d & 
     579      (domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_)) 
    525580      ENDIF 
    526581 
    527582      IF (PRESENT(lonvalue_2d_)) THEN 
    528         CALL cxios_get_domain_lonvalue_2d(domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_)) 
     583        CALL cxios_get_domain_lonvalue_2d & 
     584      (domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_)) 
    529585      ENDIF 
    530586 
    531587      IF (PRESENT(mask_1d_)) THEN 
    532588        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1))) 
    533         CALL cxios_get_domain_mask_1d(domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
     589        CALL cxios_get_domain_mask_1d & 
     590      (domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
    534591        mask_1d_ = mask_1d__tmp 
    535592      ENDIF 
    … …  
    537594      IF (PRESENT(mask_2d_)) THEN 
    538595        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2))) 
    539         CALL cxios_get_domain_mask_2d(domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
     596        CALL cxios_get_domain_mask_2d & 
     597      (domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
    540598        mask_2d_ = mask_2d__tmp 
    541599      ENDIF 
    542600 
    543601      IF (PRESENT(name_)) THEN 
    544         CALL cxios_get_domain_name(domain_hdl%daddr, name_, len(name_)) 
     602        CALL cxios_get_domain_name & 
     603      (domain_hdl%daddr, name_, len(name_)) 
    545604      ENDIF 
    546605 
    547606      IF (PRESENT(ni_)) THEN 
    548         CALL cxios_get_domain_ni(domain_hdl%daddr, ni_) 
     607        CALL cxios_get_domain_ni & 
     608      (domain_hdl%daddr, ni_) 
    549609      ENDIF 
    550610 
    551611      IF (PRESENT(ni_glo_)) THEN 
    552         CALL cxios_get_domain_ni_glo(domain_hdl%daddr, ni_glo_) 
     612        CALL cxios_get_domain_ni_glo & 
     613      (domain_hdl%daddr, ni_glo_) 
    553614      ENDIF 
    554615 
    555616      IF (PRESENT(nj_)) THEN 
    556         CALL cxios_get_domain_nj(domain_hdl%daddr, nj_) 
     617        CALL cxios_get_domain_nj & 
     618      (domain_hdl%daddr, nj_) 
    557619      ENDIF 
    558620 
    559621      IF (PRESENT(nj_glo_)) THEN 
    560         CALL cxios_get_domain_nj_glo(domain_hdl%daddr, nj_glo_) 
     622        CALL cxios_get_domain_nj_glo & 
     623      (domain_hdl%daddr, nj_glo_) 
    561624      ENDIF 
    562625 
    563626      IF (PRESENT(nvertex_)) THEN 
    564         CALL cxios_get_domain_nvertex(domain_hdl%daddr, nvertex_) 
     627        CALL cxios_get_domain_nvertex & 
     628      (domain_hdl%daddr, nvertex_) 
    565629      ENDIF 
    566630 
    567631      IF (PRESENT(standard_name_)) THEN 
    568         CALL cxios_get_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_)) 
     632        CALL cxios_get_domain_standard_name & 
     633      (domain_hdl%daddr, standard_name_, len(standard_name_)) 
    569634      ENDIF 
    570635 
    571636      IF (PRESENT(type_)) THEN 
    572         CALL cxios_get_domain_type(domain_hdl%daddr, type_, len(type_)) 
     637        CALL cxios_get_domain_type & 
     638      (domain_hdl%daddr, type_, len(type_)) 
    573639      ENDIF 
    574640 
    … …  
    649715      LOGICAL(KIND=C_BOOL) :: type_tmp 
    650716 
    651       CALL xios(get_domain_handle)(domain_id,domain_hdl) 
     717      CALL xios(get_domain_handle) & 
     718      (domain_id,domain_hdl) 
    652719      CALL xios(is_defined_domain_attr_hdl_)   & 
    653720      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    … …  
    814881 
    815882      IF (PRESENT(area_)) THEN 
    816         area__tmp = cxios_is_defined_domain_area(domain_hdl%daddr) 
     883        area__tmp = cxios_is_defined_domain_area & 
     884      (domain_hdl%daddr) 
    817885        area_ = area__tmp 
    818886      ENDIF 
    819887 
    820888      IF (PRESENT(bounds_lat_1d_)) THEN 
    821         bounds_lat_1d__tmp = cxios_is_defined_domain_bounds_lat_1d(domain_hdl%daddr) 
     889        bounds_lat_1d__tmp = cxios_is_defined_domain_bounds_lat_1d & 
     890      (domain_hdl%daddr) 
    822891        bounds_lat_1d_ = bounds_lat_1d__tmp 
    823892      ENDIF 
    824893 
    825894      IF (PRESENT(bounds_lat_2d_)) THEN 
    826         bounds_lat_2d__tmp = cxios_is_defined_domain_bounds_lat_2d(domain_hdl%daddr) 
     895        bounds_lat_2d__tmp = cxios_is_defined_domain_bounds_lat_2d & 
     896      (domain_hdl%daddr) 
    827897        bounds_lat_2d_ = bounds_lat_2d__tmp 
    828898      ENDIF 
    829899 
    830900      IF (PRESENT(bounds_lon_1d_)) THEN 
    831         bounds_lon_1d__tmp = cxios_is_defined_domain_bounds_lon_1d(domain_hdl%daddr) 
     901        bounds_lon_1d__tmp = cxios_is_defined_domain_bounds_lon_1d & 
     902      (domain_hdl%daddr) 
    832903        bounds_lon_1d_ = bounds_lon_1d__tmp 
    833904      ENDIF 
    834905 
    835906      IF (PRESENT(bounds_lon_2d_)) THEN 
    836         bounds_lon_2d__tmp = cxios_is_defined_domain_bounds_lon_2d(domain_hdl%daddr) 
     907        bounds_lon_2d__tmp = cxios_is_defined_domain_bounds_lon_2d & 
     908      (domain_hdl%daddr) 
    837909        bounds_lon_2d_ = bounds_lon_2d__tmp 
    838910      ENDIF 
    839911 
    840912      IF (PRESENT(data_dim_)) THEN 
    841         data_dim__tmp = cxios_is_defined_domain_data_dim(domain_hdl%daddr) 
     913        data_dim__tmp = cxios_is_defined_domain_data_dim & 
     914      (domain_hdl%daddr) 
    842915        data_dim_ = data_dim__tmp 
    843916      ENDIF 
    844917 
    845918      IF (PRESENT(data_i_index_)) THEN 
    846         data_i_index__tmp = cxios_is_defined_domain_data_i_index(domain_hdl%daddr) 
     919        data_i_index__tmp = cxios_is_defined_domain_data_i_index & 
     920      (domain_hdl%daddr) 
    847921        data_i_index_ = data_i_index__tmp 
    848922      ENDIF 
    849923 
    850924      IF (PRESENT(data_ibegin_)) THEN 
    851         data_ibegin__tmp = cxios_is_defined_domain_data_ibegin(domain_hdl%daddr) 
     925        data_ibegin__tmp = cxios_is_defined_domain_data_ibegin & 
     926      (domain_hdl%daddr) 
    852927        data_ibegin_ = data_ibegin__tmp 
    853928      ENDIF 
    854929 
    855930      IF (PRESENT(data_j_index_)) THEN 
    856         data_j_index__tmp = cxios_is_defined_domain_data_j_index(domain_hdl%daddr) 
     931        data_j_index__tmp = cxios_is_defined_domain_data_j_index & 
     932      (domain_hdl%daddr) 
    857933        data_j_index_ = data_j_index__tmp 
    858934      ENDIF 
    859935 
    860936      IF (PRESENT(data_jbegin_)) THEN 
    861         data_jbegin__tmp = cxios_is_defined_domain_data_jbegin(domain_hdl%daddr) 
     937        data_jbegin__tmp = cxios_is_defined_domain_data_jbegin & 
     938      (domain_hdl%daddr) 
    862939        data_jbegin_ = data_jbegin__tmp 
    863940      ENDIF 
    864941 
    865942      IF (PRESENT(data_ni_)) THEN 
    866         data_ni__tmp = cxios_is_defined_domain_data_ni(domain_hdl%daddr) 
     943        data_ni__tmp = cxios_is_defined_domain_data_ni & 
     944      (domain_hdl%daddr) 
    867945        data_ni_ = data_ni__tmp 
    868946      ENDIF 
    869947 
    870948      IF (PRESENT(data_nj_)) THEN 
    871         data_nj__tmp = cxios_is_defined_domain_data_nj(domain_hdl%daddr) 
     949        data_nj__tmp = cxios_is_defined_domain_data_nj & 
     950      (domain_hdl%daddr) 
    872951        data_nj_ = data_nj__tmp 
    873952      ENDIF 
    874953 
    875954      IF (PRESENT(domain_ref_)) THEN 
    876         domain_ref__tmp = cxios_is_defined_domain_domain_ref(domain_hdl%daddr) 
     955        domain_ref__tmp = cxios_is_defined_domain_domain_ref & 
     956      (domain_hdl%daddr) 
    877957        domain_ref_ = domain_ref__tmp 
    878958      ENDIF 
    879959 
    880960      IF (PRESENT(i_index_)) THEN 
    881         i_index__tmp = cxios_is_defined_domain_i_index(domain_hdl%daddr) 
     961        i_index__tmp = cxios_is_defined_domain_i_index & 
     962      (domain_hdl%daddr) 
    882963        i_index_ = i_index__tmp 
    883964      ENDIF 
    884965 
    885966      IF (PRESENT(ibegin_)) THEN 
    886         ibegin__tmp = cxios_is_defined_domain_ibegin(domain_hdl%daddr) 
     967        ibegin__tmp = cxios_is_defined_domain_ibegin & 
     968      (domain_hdl%daddr) 
    887969        ibegin_ = ibegin__tmp 
    888970      ENDIF 
    889971 
    890972      IF (PRESENT(j_index_)) THEN 
    891         j_index__tmp = cxios_is_defined_domain_j_index(domain_hdl%daddr) 
     973        j_index__tmp = cxios_is_defined_domain_j_index & 
     974      (domain_hdl%daddr) 
    892975        j_index_ = j_index__tmp 
    893976      ENDIF 
    894977 
    895978      IF (PRESENT(jbegin_)) THEN 
    896         jbegin__tmp = cxios_is_defined_domain_jbegin(domain_hdl%daddr) 
     979        jbegin__tmp = cxios_is_defined_domain_jbegin & 
     980      (domain_hdl%daddr) 
    897981        jbegin_ = jbegin__tmp 
    898982      ENDIF 
    899983 
    900984      IF (PRESENT(latvalue_1d_)) THEN 
    901         latvalue_1d__tmp = cxios_is_defined_domain_latvalue_1d(domain_hdl%daddr) 
     985        latvalue_1d__tmp = cxios_is_defined_domain_latvalue_1d & 
     986      (domain_hdl%daddr) 
    902987        latvalue_1d_ = latvalue_1d__tmp 
    903988      ENDIF 
    904989 
    905990      IF (PRESENT(latvalue_2d_)) THEN 
    906         latvalue_2d__tmp = cxios_is_defined_domain_latvalue_2d(domain_hdl%daddr) 
     991        latvalue_2d__tmp = cxios_is_defined_domain_latvalue_2d & 
     992      (domain_hdl%daddr) 
    907993        latvalue_2d_ = latvalue_2d__tmp 
    908994      ENDIF 
    909995 
    910996      IF (PRESENT(long_name_)) THEN 
    911         long_name__tmp = cxios_is_defined_domain_long_name(domain_hdl%daddr) 
     997        long_name__tmp = cxios_is_defined_domain_long_name & 
     998      (domain_hdl%daddr) 
    912999        long_name_ = long_name__tmp 
    9131000      ENDIF 
    9141001 
    9151002      IF (PRESENT(lonvalue_1d_)) THEN 
    916         lonvalue_1d__tmp = cxios_is_defined_domain_lonvalue_1d(domain_hdl%daddr) 
     1003        lonvalue_1d__tmp = cxios_is_defined_domain_lonvalue_1d & 
     1004      (domain_hdl%daddr) 
    9171005        lonvalue_1d_ = lonvalue_1d__tmp 
    9181006      ENDIF 
    9191007 
    9201008      IF (PRESENT(lonvalue_2d_)) THEN 
    921         lonvalue_2d__tmp = cxios_is_defined_domain_lonvalue_2d(domain_hdl%daddr) 
     1009        lonvalue_2d__tmp = cxios_is_defined_domain_lonvalue_2d & 
     1010      (domain_hdl%daddr) 
    9221011        lonvalue_2d_ = lonvalue_2d__tmp 
    9231012      ENDIF 
    9241013 
    9251014      IF (PRESENT(mask_1d_)) THEN 
    926         mask_1d__tmp = cxios_is_defined_domain_mask_1d(domain_hdl%daddr) 
     1015        mask_1d__tmp = cxios_is_defined_domain_mask_1d & 
     1016      (domain_hdl%daddr) 
    9271017        mask_1d_ = mask_1d__tmp 
    9281018      ENDIF 
    9291019 
    9301020      IF (PRESENT(mask_2d_)) THEN 
    931         mask_2d__tmp = cxios_is_defined_domain_mask_2d(domain_hdl%daddr) 
     1021        mask_2d__tmp = cxios_is_defined_domain_mask_2d & 
     1022      (domain_hdl%daddr) 
    9321023        mask_2d_ = mask_2d__tmp 
    9331024      ENDIF 
    9341025 
    9351026      IF (PRESENT(name_)) THEN 
    936         name__tmp = cxios_is_defined_domain_name(domain_hdl%daddr) 
     1027        name__tmp = cxios_is_defined_domain_name & 
     1028      (domain_hdl%daddr) 
    9371029        name_ = name__tmp 
    9381030      ENDIF 
    9391031 
    9401032      IF (PRESENT(ni_)) THEN 
    941         ni__tmp = cxios_is_defined_domain_ni(domain_hdl%daddr) 
     1033        ni__tmp = cxios_is_defined_domain_ni & 
     1034      (domain_hdl%daddr) 
    9421035        ni_ = ni__tmp 
    9431036      ENDIF 
    9441037 
    9451038      IF (PRESENT(ni_glo_)) THEN 
    946         ni_glo__tmp = cxios_is_defined_domain_ni_glo(domain_hdl%daddr) 
     1039        ni_glo__tmp = cxios_is_defined_domain_ni_glo & 
     1040      (domain_hdl%daddr) 
    9471041        ni_glo_ = ni_glo__tmp 
    9481042      ENDIF 
    9491043 
    9501044      IF (PRESENT(nj_)) THEN 
    951         nj__tmp = cxios_is_defined_domain_nj(domain_hdl%daddr) 
     1045        nj__tmp = cxios_is_defined_domain_nj & 
     1046      (domain_hdl%daddr) 
    9521047        nj_ = nj__tmp 
    9531048      ENDIF 
    9541049 
    9551050      IF (PRESENT(nj_glo_)) THEN 
    956         nj_glo__tmp = cxios_is_defined_domain_nj_glo(domain_hdl%daddr) 
     1051        nj_glo__tmp = cxios_is_defined_domain_nj_glo & 
     1052      (domain_hdl%daddr) 
    9571053        nj_glo_ = nj_glo__tmp 
    9581054      ENDIF 
    9591055 
    9601056      IF (PRESENT(nvertex_)) THEN 
    961         nvertex__tmp = cxios_is_defined_domain_nvertex(domain_hdl%daddr) 
     1057        nvertex__tmp = cxios_is_defined_domain_nvertex & 
     1058      (domain_hdl%daddr) 
    9621059        nvertex_ = nvertex__tmp 
    9631060      ENDIF 
    9641061 
    9651062      IF (PRESENT(standard_name_)) THEN 
    966         standard_name__tmp = cxios_is_defined_domain_standard_name(domain_hdl%daddr) 
     1063        standard_name__tmp = cxios_is_defined_domain_standard_name & 
     1064      (domain_hdl%daddr) 
    9671065        standard_name_ = standard_name__tmp 
    9681066      ENDIF 
    9691067 
    9701068      IF (PRESENT(type_)) THEN 
    971         type__tmp = cxios_is_defined_domain_type(domain_hdl%daddr) 
     1069        type__tmp = cxios_is_defined_domain_type & 
     1070      (domain_hdl%daddr) 
    9721071        type_ = type__tmp 
    9731072      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/idomaingroup_attr.F90

    r789 r966  
    5656      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    5757 
    58       CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl) 
     58      CALL xios(get_domaingroup_handle) & 
     59      (domaingroup_id,domaingroup_hdl) 
    5960      CALL xios(set_domaingroup_attr_hdl_)   & 
    6061      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    … …  
    163164 
    164165      IF (PRESENT(area_)) THEN 
    165         CALL cxios_set_domaingroup_area(domaingroup_hdl%daddr, area_, SHAPE(area_)) 
     166        CALL cxios_set_domaingroup_area & 
     167      (domaingroup_hdl%daddr, area_, SHAPE(area_)) 
    166168      ENDIF 
    167169 
    168170      IF (PRESENT(bounds_lat_1d_)) THEN 
    169         CALL cxios_set_domaingroup_bounds_lat_1d(domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_)) 
     171        CALL cxios_set_domaingroup_bounds_lat_1d & 
     172      (domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_)) 
    170173      ENDIF 
    171174 
    172175      IF (PRESENT(bounds_lat_2d_)) THEN 
    173         CALL cxios_set_domaingroup_bounds_lat_2d(domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_)) 
     176        CALL cxios_set_domaingroup_bounds_lat_2d & 
     177      (domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_)) 
    174178      ENDIF 
    175179 
    176180      IF (PRESENT(bounds_lon_1d_)) THEN 
    177         CALL cxios_set_domaingroup_bounds_lon_1d(domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_)) 
     181        CALL cxios_set_domaingroup_bounds_lon_1d & 
     182      (domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_)) 
    178183      ENDIF 
    179184 
    180185      IF (PRESENT(bounds_lon_2d_)) THEN 
    181         CALL cxios_set_domaingroup_bounds_lon_2d(domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_)) 
     186        CALL cxios_set_domaingroup_bounds_lon_2d & 
     187      (domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_)) 
    182188      ENDIF 
    183189 
    184190      IF (PRESENT(data_dim_)) THEN 
    185         CALL cxios_set_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_) 
     191        CALL cxios_set_domaingroup_data_dim & 
     192      (domaingroup_hdl%daddr, data_dim_) 
    186193      ENDIF 
    187194 
    188195      IF (PRESENT(data_i_index_)) THEN 
    189         CALL cxios_set_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_)) 
     196        CALL cxios_set_domaingroup_data_i_index & 
     197      (domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_)) 
    190198      ENDIF 
    191199 
    192200      IF (PRESENT(data_ibegin_)) THEN 
    193         CALL cxios_set_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_) 
     201        CALL cxios_set_domaingroup_data_ibegin & 
     202      (domaingroup_hdl%daddr, data_ibegin_) 
    194203      ENDIF 
    195204 
    196205      IF (PRESENT(data_j_index_)) THEN 
    197         CALL cxios_set_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_)) 
     206        CALL cxios_set_domaingroup_data_j_index & 
     207      (domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_)) 
    198208      ENDIF 
    199209 
    200210      IF (PRESENT(data_jbegin_)) THEN 
    201         CALL cxios_set_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_) 
     211        CALL cxios_set_domaingroup_data_jbegin & 
     212      (domaingroup_hdl%daddr, data_jbegin_) 
    202213      ENDIF 
    203214 
    204215      IF (PRESENT(data_ni_)) THEN 
    205         CALL cxios_set_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_) 
     216        CALL cxios_set_domaingroup_data_ni & 
     217      (domaingroup_hdl%daddr, data_ni_) 
    206218      ENDIF 
    207219 
    208220      IF (PRESENT(data_nj_)) THEN 
    209         CALL cxios_set_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_) 
     221        CALL cxios_set_domaingroup_data_nj & 
     222      (domaingroup_hdl%daddr, data_nj_) 
    210223      ENDIF 
    211224 
    212225      IF (PRESENT(domain_ref_)) THEN 
    213         CALL cxios_set_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_)) 
     226        CALL cxios_set_domaingroup_domain_ref & 
     227      (domaingroup_hdl%daddr, domain_ref_, len(domain_ref_)) 
    214228      ENDIF 
    215229 
    216230      IF (PRESENT(group_ref_)) THEN 
    217         CALL cxios_set_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_)) 
     231        CALL cxios_set_domaingroup_group_ref & 
     232      (domaingroup_hdl%daddr, group_ref_, len(group_ref_)) 
    218233      ENDIF 
    219234 
    220235      IF (PRESENT(i_index_)) THEN 
    221         CALL cxios_set_domaingroup_i_index(domaingroup_hdl%daddr, i_index_, SHAPE(i_index_)) 
     236        CALL cxios_set_domaingroup_i_index & 
     237      (domaingroup_hdl%daddr, i_index_, SHAPE(i_index_)) 
    222238      ENDIF 
    223239 
    224240      IF (PRESENT(ibegin_)) THEN 
    225         CALL cxios_set_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_) 
     241        CALL cxios_set_domaingroup_ibegin & 
     242      (domaingroup_hdl%daddr, ibegin_) 
    226243      ENDIF 
    227244 
    228245      IF (PRESENT(j_index_)) THEN 
    229         CALL cxios_set_domaingroup_j_index(domaingroup_hdl%daddr, j_index_, SHAPE(j_index_)) 
     246        CALL cxios_set_domaingroup_j_index & 
     247      (domaingroup_hdl%daddr, j_index_, SHAPE(j_index_)) 
    230248      ENDIF 
    231249 
    232250      IF (PRESENT(jbegin_)) THEN 
    233         CALL cxios_set_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_) 
     251        CALL cxios_set_domaingroup_jbegin & 
     252      (domaingroup_hdl%daddr, jbegin_) 
    234253      ENDIF 
    235254 
    236255      IF (PRESENT(latvalue_1d_)) THEN 
    237         CALL cxios_set_domaingroup_latvalue_1d(domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_)) 
     256        CALL cxios_set_domaingroup_latvalue_1d & 
     257      (domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_)) 
    238258      ENDIF 
    239259 
    240260      IF (PRESENT(latvalue_2d_)) THEN 
    241         CALL cxios_set_domaingroup_latvalue_2d(domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 
     261        CALL cxios_set_domaingroup_latvalue_2d & 
     262      (domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 
    242263      ENDIF 
    243264 
    244265      IF (PRESENT(long_name_)) THEN 
    245         CALL cxios_set_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_)) 
     266        CALL cxios_set_domaingroup_long_name & 
     267      (domaingroup_hdl%daddr, long_name_, len(long_name_)) 
    246268      ENDIF 
    247269 
    248270      IF (PRESENT(lonvalue_1d_)) THEN 
    249         CALL cxios_set_domaingroup_lonvalue_1d(domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_)) 
     271        CALL cxios_set_domaingroup_lonvalue_1d & 
     272      (domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_)) 
    250273      ENDIF 
    251274 
    252275      IF (PRESENT(lonvalue_2d_)) THEN 
    253         CALL cxios_set_domaingroup_lonvalue_2d(domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_)) 
     276        CALL cxios_set_domaingroup_lonvalue_2d & 
     277      (domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_)) 
    254278      ENDIF 
    255279 
    … …  
    257281        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1))) 
    258282        mask_1d__tmp = mask_1d_ 
    259         CALL cxios_set_domaingroup_mask_1d(domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
     283        CALL cxios_set_domaingroup_mask_1d & 
     284      (domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
    260285      ENDIF 
    261286 
    … …  
    263288        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2))) 
    264289        mask_2d__tmp = mask_2d_ 
    265         CALL cxios_set_domaingroup_mask_2d(domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
     290        CALL cxios_set_domaingroup_mask_2d & 
     291      (domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
    266292      ENDIF 
    267293 
    268294      IF (PRESENT(name_)) THEN 
    269         CALL cxios_set_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_)) 
     295        CALL cxios_set_domaingroup_name & 
     296      (domaingroup_hdl%daddr, name_, len(name_)) 
    270297      ENDIF 
    271298 
    272299      IF (PRESENT(ni_)) THEN 
    273         CALL cxios_set_domaingroup_ni(domaingroup_hdl%daddr, ni_) 
     300        CALL cxios_set_domaingroup_ni & 
     301      (domaingroup_hdl%daddr, ni_) 
    274302      ENDIF 
    275303 
    276304      IF (PRESENT(ni_glo_)) THEN 
    277         CALL cxios_set_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_) 
     305        CALL cxios_set_domaingroup_ni_glo & 
     306      (domaingroup_hdl%daddr, ni_glo_) 
    278307      ENDIF 
    279308 
    280309      IF (PRESENT(nj_)) THEN 
    281         CALL cxios_set_domaingroup_nj(domaingroup_hdl%daddr, nj_) 
     310        CALL cxios_set_domaingroup_nj & 
     311      (domaingroup_hdl%daddr, nj_) 
    282312      ENDIF 
    283313 
    284314      IF (PRESENT(nj_glo_)) THEN 
    285         CALL cxios_set_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_) 
     315        CALL cxios_set_domaingroup_nj_glo & 
     316      (domaingroup_hdl%daddr, nj_glo_) 
    286317      ENDIF 
    287318 
    288319      IF (PRESENT(nvertex_)) THEN 
    289         CALL cxios_set_domaingroup_nvertex(domaingroup_hdl%daddr, nvertex_) 
     320        CALL cxios_set_domaingroup_nvertex & 
     321      (domaingroup_hdl%daddr, nvertex_) 
    290322      ENDIF 
    291323 
    292324      IF (PRESENT(standard_name_)) THEN 
    293         CALL cxios_set_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_)) 
     325        CALL cxios_set_domaingroup_standard_name & 
     326      (domaingroup_hdl%daddr, standard_name_, len(standard_name_)) 
    294327      ENDIF 
    295328 
    296329      IF (PRESENT(type_)) THEN 
    297         CALL cxios_set_domaingroup_type(domaingroup_hdl%daddr, type_, len(type_)) 
     330        CALL cxios_set_domaingroup_type & 
     331      (domaingroup_hdl%daddr, type_, len(type_)) 
    298332      ENDIF 
    299333 
    … …  
    345379      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    346380 
    347       CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl) 
     381      CALL xios(get_domaingroup_handle) & 
     382      (domaingroup_id,domaingroup_hdl) 
    348383      CALL xios(get_domaingroup_attr_hdl_)   & 
    349384      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    … …  
    452487 
    453488      IF (PRESENT(area_)) THEN 
    454         CALL cxios_get_domaingroup_area(domaingroup_hdl%daddr, area_, SHAPE(area_)) 
     489        CALL cxios_get_domaingroup_area & 
     490      (domaingroup_hdl%daddr, area_, SHAPE(area_)) 
    455491      ENDIF 
    456492 
    457493      IF (PRESENT(bounds_lat_1d_)) THEN 
    458         CALL cxios_get_domaingroup_bounds_lat_1d(domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_)) 
     494        CALL cxios_get_domaingroup_bounds_lat_1d & 
     495      (domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_)) 
    459496      ENDIF 
    460497 
    461498      IF (PRESENT(bounds_lat_2d_)) THEN 
    462         CALL cxios_get_domaingroup_bounds_lat_2d(domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_)) 
     499        CALL cxios_get_domaingroup_bounds_lat_2d & 
     500      (domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_)) 
    463501      ENDIF 
    464502 
    465503      IF (PRESENT(bounds_lon_1d_)) THEN 
    466         CALL cxios_get_domaingroup_bounds_lon_1d(domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_)) 
     504        CALL cxios_get_domaingroup_bounds_lon_1d & 
     505      (domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_)) 
    467506      ENDIF 
    468507 
    469508      IF (PRESENT(bounds_lon_2d_)) THEN 
    470         CALL cxios_get_domaingroup_bounds_lon_2d(domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_)) 
     509        CALL cxios_get_domaingroup_bounds_lon_2d & 
     510      (domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_)) 
    471511      ENDIF 
    472512 
    473513      IF (PRESENT(data_dim_)) THEN 
    474         CALL cxios_get_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_) 
     514        CALL cxios_get_domaingroup_data_dim & 
     515      (domaingroup_hdl%daddr, data_dim_) 
    475516      ENDIF 
    476517 
    477518      IF (PRESENT(data_i_index_)) THEN 
    478         CALL cxios_get_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_)) 
     519        CALL cxios_get_domaingroup_data_i_index & 
     520      (domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_)) 
    479521      ENDIF 
    480522 
    481523      IF (PRESENT(data_ibegin_)) THEN 
    482         CALL cxios_get_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_) 
     524        CALL cxios_get_domaingroup_data_ibegin & 
     525      (domaingroup_hdl%daddr, data_ibegin_) 
    483526      ENDIF 
    484527 
    485528      IF (PRESENT(data_j_index_)) THEN 
    486         CALL cxios_get_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_)) 
     529        CALL cxios_get_domaingroup_data_j_index & 
     530      (domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_)) 
    487531      ENDIF 
    488532 
    489533      IF (PRESENT(data_jbegin_)) THEN 
    490         CALL cxios_get_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_) 
     534        CALL cxios_get_domaingroup_data_jbegin & 
     535      (domaingroup_hdl%daddr, data_jbegin_) 
    491536      ENDIF 
    492537 
    493538      IF (PRESENT(data_ni_)) THEN 
    494         CALL cxios_get_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_) 
     539        CALL cxios_get_domaingroup_data_ni & 
     540      (domaingroup_hdl%daddr, data_ni_) 
    495541      ENDIF 
    496542 
    497543      IF (PRESENT(data_nj_)) THEN 
    498         CALL cxios_get_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_) 
     544        CALL cxios_get_domaingroup_data_nj & 
     545      (domaingroup_hdl%daddr, data_nj_) 
    499546      ENDIF 
    500547 
    501548      IF (PRESENT(domain_ref_)) THEN 
    502         CALL cxios_get_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_)) 
     549        CALL cxios_get_domaingroup_domain_ref & 
     550      (domaingroup_hdl%daddr, domain_ref_, len(domain_ref_)) 
    503551      ENDIF 
    504552 
    505553      IF (PRESENT(group_ref_)) THEN 
    506         CALL cxios_get_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_)) 
     554        CALL cxios_get_domaingroup_group_ref & 
     555      (domaingroup_hdl%daddr, group_ref_, len(group_ref_)) 
    507556      ENDIF 
    508557 
    509558      IF (PRESENT(i_index_)) THEN 
    510         CALL cxios_get_domaingroup_i_index(domaingroup_hdl%daddr, i_index_, SHAPE(i_index_)) 
     559        CALL cxios_get_domaingroup_i_index & 
     560      (domaingroup_hdl%daddr, i_index_, SHAPE(i_index_)) 
    511561      ENDIF 
    512562 
    513563      IF (PRESENT(ibegin_)) THEN 
    514         CALL cxios_get_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_) 
     564        CALL cxios_get_domaingroup_ibegin & 
     565      (domaingroup_hdl%daddr, ibegin_) 
    515566      ENDIF 
    516567 
    517568      IF (PRESENT(j_index_)) THEN 
    518         CALL cxios_get_domaingroup_j_index(domaingroup_hdl%daddr, j_index_, SHAPE(j_index_)) 
     569        CALL cxios_get_domaingroup_j_index & 
     570      (domaingroup_hdl%daddr, j_index_, SHAPE(j_index_)) 
    519571      ENDIF 
    520572 
    521573      IF (PRESENT(jbegin_)) THEN 
    522         CALL cxios_get_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_) 
     574        CALL cxios_get_domaingroup_jbegin & 
     575      (domaingroup_hdl%daddr, jbegin_) 
    523576      ENDIF 
    524577 
    525578      IF (PRESENT(latvalue_1d_)) THEN 
    526         CALL cxios_get_domaingroup_latvalue_1d(domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_)) 
     579        CALL cxios_get_domaingroup_latvalue_1d & 
     580      (domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_)) 
    527581      ENDIF 
    528582 
    529583      IF (PRESENT(latvalue_2d_)) THEN 
    530         CALL cxios_get_domaingroup_latvalue_2d(domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 
     584        CALL cxios_get_domaingroup_latvalue_2d & 
     585      (domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 
    531586      ENDIF 
    532587 
    533588      IF (PRESENT(long_name_)) THEN 
    534         CALL cxios_get_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_)) 
     589        CALL cxios_get_domaingroup_long_name & 
     590      (domaingroup_hdl%daddr, long_name_, len(long_name_)) 
    535591      ENDIF 
    536592 
    537593      IF (PRESENT(lonvalue_1d_)) THEN 
    538         CALL cxios_get_domaingroup_lonvalue_1d(domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_)) 
     594        CALL cxios_get_domaingroup_lonvalue_1d & 
     595      (domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_)) 
    539596      ENDIF 
    540597 
    541598      IF (PRESENT(lonvalue_2d_)) THEN 
    542         CALL cxios_get_domaingroup_lonvalue_2d(domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_)) 
     599        CALL cxios_get_domaingroup_lonvalue_2d & 
     600      (domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_)) 
    543601      ENDIF 
    544602 
    545603      IF (PRESENT(mask_1d_)) THEN 
    546604        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1))) 
    547         CALL cxios_get_domaingroup_mask_1d(domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
     605        CALL cxios_get_domaingroup_mask_1d & 
     606      (domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
    548607        mask_1d_ = mask_1d__tmp 
    549608      ENDIF 
    … …  
    551610      IF (PRESENT(mask_2d_)) THEN 
    552611        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2))) 
    553         CALL cxios_get_domaingroup_mask_2d(domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
     612        CALL cxios_get_domaingroup_mask_2d & 
     613      (domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
    554614        mask_2d_ = mask_2d__tmp 
    555615      ENDIF 
    556616 
    557617      IF (PRESENT(name_)) THEN 
    558         CALL cxios_get_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_)) 
     618        CALL cxios_get_domaingroup_name & 
     619      (domaingroup_hdl%daddr, name_, len(name_)) 
    559620      ENDIF 
    560621 
    561622      IF (PRESENT(ni_)) THEN 
    562         CALL cxios_get_domaingroup_ni(domaingroup_hdl%daddr, ni_) 
     623        CALL cxios_get_domaingroup_ni & 
     624      (domaingroup_hdl%daddr, ni_) 
    563625      ENDIF 
    564626 
    565627      IF (PRESENT(ni_glo_)) THEN 
    566         CALL cxios_get_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_) 
     628        CALL cxios_get_domaingroup_ni_glo & 
     629      (domaingroup_hdl%daddr, ni_glo_) 
    567630      ENDIF 
    568631 
    569632      IF (PRESENT(nj_)) THEN 
    570         CALL cxios_get_domaingroup_nj(domaingroup_hdl%daddr, nj_) 
     633        CALL cxios_get_domaingroup_nj & 
     634      (domaingroup_hdl%daddr, nj_) 
    571635      ENDIF 
    572636 
    573637      IF (PRESENT(nj_glo_)) THEN 
    574         CALL cxios_get_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_) 
     638        CALL cxios_get_domaingroup_nj_glo & 
     639      (domaingroup_hdl%daddr, nj_glo_) 
    575640      ENDIF 
    576641 
    577642      IF (PRESENT(nvertex_)) THEN 
    578         CALL cxios_get_domaingroup_nvertex(domaingroup_hdl%daddr, nvertex_) 
     643        CALL cxios_get_domaingroup_nvertex & 
     644      (domaingroup_hdl%daddr, nvertex_) 
    579645      ENDIF 
    580646 
    581647      IF (PRESENT(standard_name_)) THEN 
    582         CALL cxios_get_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_)) 
     648        CALL cxios_get_domaingroup_standard_name & 
     649      (domaingroup_hdl%daddr, standard_name_, len(standard_name_)) 
    583650      ENDIF 
    584651 
    585652      IF (PRESENT(type_)) THEN 
    586         CALL cxios_get_domaingroup_type(domaingroup_hdl%daddr, type_, len(type_)) 
     653        CALL cxios_get_domaingroup_type & 
     654      (domaingroup_hdl%daddr, type_, len(type_)) 
    587655      ENDIF 
    588656 
    … …  
    665733      LOGICAL(KIND=C_BOOL) :: type_tmp 
    666734 
    667       CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl) 
     735      CALL xios(get_domaingroup_handle) & 
     736      (domaingroup_id,domaingroup_hdl) 
    668737      CALL xios(is_defined_domaingroup_attr_hdl_)   & 
    669738      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    … …  
    834903 
    835904      IF (PRESENT(area_)) THEN 
    836         area__tmp = cxios_is_defined_domaingroup_area(domaingroup_hdl%daddr) 
     905        area__tmp = cxios_is_defined_domaingroup_area & 
     906      (domaingroup_hdl%daddr) 
    837907        area_ = area__tmp 
    838908      ENDIF 
    839909 
    840910      IF (PRESENT(bounds_lat_1d_)) THEN 
    841         bounds_lat_1d__tmp = cxios_is_defined_domaingroup_bounds_lat_1d(domaingroup_hdl%daddr) 
     911        bounds_lat_1d__tmp = cxios_is_defined_domaingroup_bounds_lat_1d & 
     912      (domaingroup_hdl%daddr) 
    842913        bounds_lat_1d_ = bounds_lat_1d__tmp 
    843914      ENDIF 
    844915 
    845916      IF (PRESENT(bounds_lat_2d_)) THEN 
    846         bounds_lat_2d__tmp = cxios_is_defined_domaingroup_bounds_lat_2d(domaingroup_hdl%daddr) 
     917        bounds_lat_2d__tmp = cxios_is_defined_domaingroup_bounds_lat_2d & 
     918      (domaingroup_hdl%daddr) 
    847919        bounds_lat_2d_ = bounds_lat_2d__tmp 
    848920      ENDIF 
    849921 
    850922      IF (PRESENT(bounds_lon_1d_)) THEN 
    851         bounds_lon_1d__tmp = cxios_is_defined_domaingroup_bounds_lon_1d(domaingroup_hdl%daddr) 
     923        bounds_lon_1d__tmp = cxios_is_defined_domaingroup_bounds_lon_1d & 
     924      (domaingroup_hdl%daddr) 
    852925        bounds_lon_1d_ = bounds_lon_1d__tmp 
    853926      ENDIF 
    854927 
    855928      IF (PRESENT(bounds_lon_2d_)) THEN 
    856         bounds_lon_2d__tmp = cxios_is_defined_domaingroup_bounds_lon_2d(domaingroup_hdl%daddr) 
     929        bounds_lon_2d__tmp = cxios_is_defined_domaingroup_bounds_lon_2d & 
     930      (domaingroup_hdl%daddr) 
    857931        bounds_lon_2d_ = bounds_lon_2d__tmp 
    858932      ENDIF 
    859933 
    860934      IF (PRESENT(data_dim_)) THEN 
    861         data_dim__tmp = cxios_is_defined_domaingroup_data_dim(domaingroup_hdl%daddr) 
     935        data_dim__tmp = cxios_is_defined_domaingroup_data_dim & 
     936      (domaingroup_hdl%daddr) 
    862937        data_dim_ = data_dim__tmp 
    863938      ENDIF 
    864939 
    865940      IF (PRESENT(data_i_index_)) THEN 
    866         data_i_index__tmp = cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl%daddr) 
     941        data_i_index__tmp = cxios_is_defined_domaingroup_data_i_index & 
     942      (domaingroup_hdl%daddr) 
    867943        data_i_index_ = data_i_index__tmp 
    868944      ENDIF 
    869945 
    870946      IF (PRESENT(data_ibegin_)) THEN 
    871         data_ibegin__tmp = cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl%daddr) 
     947        data_ibegin__tmp = cxios_is_defined_domaingroup_data_ibegin & 
     948      (domaingroup_hdl%daddr) 
    872949        data_ibegin_ = data_ibegin__tmp 
    873950      ENDIF 
    874951 
    875952      IF (PRESENT(data_j_index_)) THEN 
    876         data_j_index__tmp = cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl%daddr) 
     953        data_j_index__tmp = cxios_is_defined_domaingroup_data_j_index & 
     954      (domaingroup_hdl%daddr) 
    877955        data_j_index_ = data_j_index__tmp 
    878956      ENDIF 
    879957 
    880958      IF (PRESENT(data_jbegin_)) THEN 
    881         data_jbegin__tmp = cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl%daddr) 
     959        data_jbegin__tmp = cxios_is_defined_domaingroup_data_jbegin & 
     960      (domaingroup_hdl%daddr) 
    882961        data_jbegin_ = data_jbegin__tmp 
    883962      ENDIF 
    884963 
    885964      IF (PRESENT(data_ni_)) THEN 
    886         data_ni__tmp = cxios_is_defined_domaingroup_data_ni(domaingroup_hdl%daddr) 
     965        data_ni__tmp = cxios_is_defined_domaingroup_data_ni & 
     966      (domaingroup_hdl%daddr) 
    887967        data_ni_ = data_ni__tmp 
    888968      ENDIF 
    889969 
    890970      IF (PRESENT(data_nj_)) THEN 
    891         data_nj__tmp = cxios_is_defined_domaingroup_data_nj(domaingroup_hdl%daddr) 
     971        data_nj__tmp = cxios_is_defined_domaingroup_data_nj & 
     972      (domaingroup_hdl%daddr) 
    892973        data_nj_ = data_nj__tmp 
    893974      ENDIF 
    894975 
    895976      IF (PRESENT(domain_ref_)) THEN 
    896         domain_ref__tmp = cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl%daddr) 
     977        domain_ref__tmp = cxios_is_defined_domaingroup_domain_ref & 
     978      (domaingroup_hdl%daddr) 
    897979        domain_ref_ = domain_ref__tmp 
    898980      ENDIF 
    899981 
    900982      IF (PRESENT(group_ref_)) THEN 
    901         group_ref__tmp = cxios_is_defined_domaingroup_group_ref(domaingroup_hdl%daddr) 
     983        group_ref__tmp = cxios_is_defined_domaingroup_group_ref & 
     984      (domaingroup_hdl%daddr) 
    902985        group_ref_ = group_ref__tmp 
    903986      ENDIF 
    904987 
    905988      IF (PRESENT(i_index_)) THEN 
    906         i_index__tmp = cxios_is_defined_domaingroup_i_index(domaingroup_hdl%daddr) 
     989        i_index__tmp = cxios_is_defined_domaingroup_i_index & 
     990      (domaingroup_hdl%daddr) 
    907991        i_index_ = i_index__tmp 
    908992      ENDIF 
    909993 
    910994      IF (PRESENT(ibegin_)) THEN 
    911         ibegin__tmp = cxios_is_defined_domaingroup_ibegin(domaingroup_hdl%daddr) 
     995        ibegin__tmp = cxios_is_defined_domaingroup_ibegin & 
     996      (domaingroup_hdl%daddr) 
    912997        ibegin_ = ibegin__tmp 
    913998      ENDIF 
    914999 
    9151000      IF (PRESENT(j_index_)) THEN 
    916         j_index__tmp = cxios_is_defined_domaingroup_j_index(domaingroup_hdl%daddr) 
     1001        j_index__tmp = cxios_is_defined_domaingroup_j_index & 
     1002      (domaingroup_hdl%daddr) 
    9171003        j_index_ = j_index__tmp 
    9181004      ENDIF 
    9191005 
    9201006      IF (PRESENT(jbegin_)) THEN 
    921         jbegin__tmp = cxios_is_defined_domaingroup_jbegin(domaingroup_hdl%daddr) 
     1007        jbegin__tmp = cxios_is_defined_domaingroup_jbegin & 
     1008      (domaingroup_hdl%daddr) 
    9221009        jbegin_ = jbegin__tmp 
    9231010      ENDIF 
    9241011 
    9251012      IF (PRESENT(latvalue_1d_)) THEN 
    926         latvalue_1d__tmp = cxios_is_defined_domaingroup_latvalue_1d(domaingroup_hdl%daddr) 
     1013        latvalue_1d__tmp = cxios_is_defined_domaingroup_latvalue_1d & 
     1014      (domaingroup_hdl%daddr) 
    9271015        latvalue_1d_ = latvalue_1d__tmp 
    9281016      ENDIF 
    9291017 
    9301018      IF (PRESENT(latvalue_2d_)) THEN 
    931         latvalue_2d__tmp = cxios_is_defined_domaingroup_latvalue_2d(domaingroup_hdl%daddr) 
     1019        latvalue_2d__tmp = cxios_is_defined_domaingroup_latvalue_2d & 
     1020      (domaingroup_hdl%daddr) 
    9321021        latvalue_2d_ = latvalue_2d__tmp 
    9331022      ENDIF 
    9341023 
    9351024      IF (PRESENT(long_name_)) THEN 
    936         long_name__tmp = cxios_is_defined_domaingroup_long_name(domaingroup_hdl%daddr) 
     1025        long_name__tmp = cxios_is_defined_domaingroup_long_name & 
     1026      (domaingroup_hdl%daddr) 
    9371027        long_name_ = long_name__tmp 
    9381028      ENDIF 
    9391029 
    9401030      IF (PRESENT(lonvalue_1d_)) THEN 
    941         lonvalue_1d__tmp = cxios_is_defined_domaingroup_lonvalue_1d(domaingroup_hdl%daddr) 
     1031        lonvalue_1d__tmp = cxios_is_defined_domaingroup_lonvalue_1d & 
     1032      (domaingroup_hdl%daddr) 
    9421033        lonvalue_1d_ = lonvalue_1d__tmp 
    9431034      ENDIF 
    9441035 
    9451036      IF (PRESENT(lonvalue_2d_)) THEN 
    946         lonvalue_2d__tmp = cxios_is_defined_domaingroup_lonvalue_2d(domaingroup_hdl%daddr) 
     1037        lonvalue_2d__tmp = cxios_is_defined_domaingroup_lonvalue_2d & 
     1038      (domaingroup_hdl%daddr) 
    9471039        lonvalue_2d_ = lonvalue_2d__tmp 
    9481040      ENDIF 
    9491041 
    9501042      IF (PRESENT(mask_1d_)) THEN 
    951         mask_1d__tmp = cxios_is_defined_domaingroup_mask_1d(domaingroup_hdl%daddr) 
     1043        mask_1d__tmp = cxios_is_defined_domaingroup_mask_1d & 
     1044      (domaingroup_hdl%daddr) 
    9521045        mask_1d_ = mask_1d__tmp 
    9531046      ENDIF 
    9541047 
    9551048      IF (PRESENT(mask_2d_)) THEN 
    956         mask_2d__tmp = cxios_is_defined_domaingroup_mask_2d(domaingroup_hdl%daddr) 
     1049        mask_2d__tmp = cxios_is_defined_domaingroup_mask_2d & 
     1050      (domaingroup_hdl%daddr) 
    9571051        mask_2d_ = mask_2d__tmp 
    9581052      ENDIF 
    9591053 
    9601054      IF (PRESENT(name_)) THEN 
    961         name__tmp = cxios_is_defined_domaingroup_name(domaingroup_hdl%daddr) 
     1055        name__tmp = cxios_is_defined_domaingroup_name & 
     1056      (domaingroup_hdl%daddr) 
    9621057        name_ = name__tmp 
    9631058      ENDIF 
    9641059 
    9651060      IF (PRESENT(ni_)) THEN 
    966         ni__tmp = cxios_is_defined_domaingroup_ni(domaingroup_hdl%daddr) 
     1061        ni__tmp = cxios_is_defined_domaingroup_ni & 
     1062      (domaingroup_hdl%daddr) 
    9671063        ni_ = ni__tmp 
    9681064      ENDIF 
    9691065 
    9701066      IF (PRESENT(ni_glo_)) THEN 
    971         ni_glo__tmp = cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl%daddr) 
     1067        ni_glo__tmp = cxios_is_defined_domaingroup_ni_glo & 
     1068      (domaingroup_hdl%daddr) 
    9721069        ni_glo_ = ni_glo__tmp 
    9731070      ENDIF 
    9741071 
    9751072      IF (PRESENT(nj_)) THEN 
    976         nj__tmp = cxios_is_defined_domaingroup_nj(domaingroup_hdl%daddr) 
     1073        nj__tmp = cxios_is_defined_domaingroup_nj & 
     1074      (domaingroup_hdl%daddr) 
    9771075        nj_ = nj__tmp 
    9781076      ENDIF 
    9791077 
    9801078      IF (PRESENT(nj_glo_)) THEN 
    981         nj_glo__tmp = cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl%daddr) 
     1079        nj_glo__tmp = cxios_is_defined_domaingroup_nj_glo & 
     1080      (domaingroup_hdl%daddr) 
    9821081        nj_glo_ = nj_glo__tmp 
    9831082      ENDIF 
    9841083 
    9851084      IF (PRESENT(nvertex_)) THEN 
    986         nvertex__tmp = cxios_is_defined_domaingroup_nvertex(domaingroup_hdl%daddr) 
     1085        nvertex__tmp = cxios_is_defined_domaingroup_nvertex & 
     1086      (domaingroup_hdl%daddr) 
    9871087        nvertex_ = nvertex__tmp 
    9881088      ENDIF 
    9891089 
    9901090      IF (PRESENT(standard_name_)) THEN 
    991         standard_name__tmp = cxios_is_defined_domaingroup_standard_name(domaingroup_hdl%daddr) 
     1091        standard_name__tmp = cxios_is_defined_domaingroup_standard_name & 
     1092      (domaingroup_hdl%daddr) 
    9921093        standard_name_ = standard_name__tmp 
    9931094      ENDIF 
    9941095 
    9951096      IF (PRESENT(type_)) THEN 
    996         type__tmp = cxios_is_defined_domaingroup_type(domaingroup_hdl%daddr) 
     1097        type__tmp = cxios_is_defined_domaingroup_type & 
     1098      (domaingroup_hdl%daddr) 
    9971099        type_ = type__tmp 
    9981100      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/ifield_attr.F90

    r891 r966  
    5353      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min 
    5454 
    55       CALL xios(get_field_handle)(field_id,field_hdl) 
     55      CALL xios(get_field_handle) & 
     56      (field_id,field_hdl) 
    5657      CALL xios(set_field_attr_hdl_)   & 
    5758      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
    … …  
    153154 
    154155      IF (PRESENT(add_offset_)) THEN 
    155         CALL cxios_set_field_add_offset(field_hdl%daddr, add_offset_) 
     156        CALL cxios_set_field_add_offset & 
     157      (field_hdl%daddr, add_offset_) 
    156158      ENDIF 
    157159 
    158160      IF (PRESENT(axis_ref_)) THEN 
    159         CALL cxios_set_field_axis_ref(field_hdl%daddr, axis_ref_, len(axis_ref_)) 
     161        CALL cxios_set_field_axis_ref & 
     162      (field_hdl%daddr, axis_ref_, len(axis_ref_)) 
    160163      ENDIF 
    161164 
    162165      IF (PRESENT(compression_level_)) THEN 
    163         CALL cxios_set_field_compression_level(field_hdl%daddr, compression_level_) 
     166        CALL cxios_set_field_compression_level & 
     167      (field_hdl%daddr, compression_level_) 
    164168      ENDIF 
    165169 
    166170      IF (PRESENT(default_value_)) THEN 
    167         CALL cxios_set_field_default_value(field_hdl%daddr, default_value_) 
     171        CALL cxios_set_field_default_value & 
     172      (field_hdl%daddr, default_value_) 
    168173      ENDIF 
    169174 
    170175      IF (PRESENT(detect_missing_value_)) THEN 
    171176        detect_missing_value__tmp = detect_missing_value_ 
    172         CALL cxios_set_field_detect_missing_value(field_hdl%daddr, detect_missing_value__tmp) 
     177        CALL cxios_set_field_detect_missing_value & 
     178      (field_hdl%daddr, detect_missing_value__tmp) 
    173179      ENDIF 
    174180 
    175181      IF (PRESENT(domain_ref_)) THEN 
    176         CALL cxios_set_field_domain_ref(field_hdl%daddr, domain_ref_, len(domain_ref_)) 
     182        CALL cxios_set_field_domain_ref & 
     183      (field_hdl%daddr, domain_ref_, len(domain_ref_)) 
    177184      ENDIF 
    178185 
    179186      IF (PRESENT(enabled_)) THEN 
    180187        enabled__tmp = enabled_ 
    181         CALL cxios_set_field_enabled(field_hdl%daddr, enabled__tmp) 
     188        CALL cxios_set_field_enabled & 
     189      (field_hdl%daddr, enabled__tmp) 
    182190      ENDIF 
    183191 
    184192      IF (PRESENT(field_ref_)) THEN 
    185         CALL cxios_set_field_field_ref(field_hdl%daddr, field_ref_, len(field_ref_)) 
     193        CALL cxios_set_field_field_ref & 
     194      (field_hdl%daddr, field_ref_, len(field_ref_)) 
    186195      ENDIF 
    187196 
    188197      IF (PRESENT(freq_offset_)) THEN 
    189         CALL cxios_set_field_freq_offset(field_hdl%daddr, freq_offset_) 
     198        CALL cxios_set_field_freq_offset & 
     199      (field_hdl%daddr, freq_offset_) 
    190200      ENDIF 
    191201 
    192202      IF (PRESENT(freq_op_)) THEN 
    193         CALL cxios_set_field_freq_op(field_hdl%daddr, freq_op_) 
     203        CALL cxios_set_field_freq_op & 
     204      (field_hdl%daddr, freq_op_) 
    194205      ENDIF 
    195206 
    196207      IF (PRESENT(grid_path_)) THEN 
    197         CALL cxios_set_field_grid_path(field_hdl%daddr, grid_path_, len(grid_path_)) 
     208        CALL cxios_set_field_grid_path & 
     209      (field_hdl%daddr, grid_path_, len(grid_path_)) 
    198210      ENDIF 
    199211 
    200212      IF (PRESENT(grid_ref_)) THEN 
    201         CALL cxios_set_field_grid_ref(field_hdl%daddr, grid_ref_, len(grid_ref_)) 
     213        CALL cxios_set_field_grid_ref & 
     214      (field_hdl%daddr, grid_ref_, len(grid_ref_)) 
    202215      ENDIF 
    203216 
    204217      IF (PRESENT(indexed_output_)) THEN 
    205218        indexed_output__tmp = indexed_output_ 
    206         CALL cxios_set_field_indexed_output(field_hdl%daddr, indexed_output__tmp) 
     219        CALL cxios_set_field_indexed_output & 
     220      (field_hdl%daddr, indexed_output__tmp) 
    207221      ENDIF 
    208222 
    209223      IF (PRESENT(level_)) THEN 
    210         CALL cxios_set_field_level(field_hdl%daddr, level_) 
     224        CALL cxios_set_field_level & 
     225      (field_hdl%daddr, level_) 
    211226      ENDIF 
    212227 
    213228      IF (PRESENT(long_name_)) THEN 
    214         CALL cxios_set_field_long_name(field_hdl%daddr, long_name_, len(long_name_)) 
     229        CALL cxios_set_field_long_name & 
     230      (field_hdl%daddr, long_name_, len(long_name_)) 
    215231      ENDIF 
    216232 
    217233      IF (PRESENT(name_)) THEN 
    218         CALL cxios_set_field_name(field_hdl%daddr, name_, len(name_)) 
     234        CALL cxios_set_field_name & 
     235      (field_hdl%daddr, name_, len(name_)) 
    219236      ENDIF 
    220237 
    221238      IF (PRESENT(operation_)) THEN 
    222         CALL cxios_set_field_operation(field_hdl%daddr, operation_, len(operation_)) 
     239        CALL cxios_set_field_operation & 
     240      (field_hdl%daddr, operation_, len(operation_)) 
    223241      ENDIF 
    224242 
    225243      IF (PRESENT(prec_)) THEN 
    226         CALL cxios_set_field_prec(field_hdl%daddr, prec_) 
     244        CALL cxios_set_field_prec & 
     245      (field_hdl%daddr, prec_) 
    227246      ENDIF 
    228247 
    229248      IF (PRESENT(read_access_)) THEN 
    230249        read_access__tmp = read_access_ 
    231         CALL cxios_set_field_read_access(field_hdl%daddr, read_access__tmp) 
     250        CALL cxios_set_field_read_access & 
     251      (field_hdl%daddr, read_access__tmp) 
    232252      ENDIF 
    233253 
    234254      IF (PRESENT(scalar_ref_)) THEN 
    235         CALL cxios_set_field_scalar_ref(field_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
     255        CALL cxios_set_field_scalar_ref & 
     256      (field_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
    236257      ENDIF 
    237258 
    238259      IF (PRESENT(scale_factor_)) THEN 
    239         CALL cxios_set_field_scale_factor(field_hdl%daddr, scale_factor_) 
     260        CALL cxios_set_field_scale_factor & 
     261      (field_hdl%daddr, scale_factor_) 
    240262      ENDIF 
    241263 
    242264      IF (PRESENT(standard_name_)) THEN 
    243         CALL cxios_set_field_standard_name(field_hdl%daddr, standard_name_, len(standard_name_)) 
     265        CALL cxios_set_field_standard_name & 
     266      (field_hdl%daddr, standard_name_, len(standard_name_)) 
    244267      ENDIF 
    245268 
    246269      IF (PRESENT(ts_enabled_)) THEN 
    247270        ts_enabled__tmp = ts_enabled_ 
    248         CALL cxios_set_field_ts_enabled(field_hdl%daddr, ts_enabled__tmp) 
     271        CALL cxios_set_field_ts_enabled & 
     272      (field_hdl%daddr, ts_enabled__tmp) 
    249273      ENDIF 
    250274 
    251275      IF (PRESENT(ts_split_freq_)) THEN 
    252         CALL cxios_set_field_ts_split_freq(field_hdl%daddr, ts_split_freq_) 
     276        CALL cxios_set_field_ts_split_freq & 
     277      (field_hdl%daddr, ts_split_freq_) 
    253278      ENDIF 
    254279 
    255280      IF (PRESENT(unit_)) THEN 
    256         CALL cxios_set_field_unit(field_hdl%daddr, unit_, len(unit_)) 
     281        CALL cxios_set_field_unit & 
     282      (field_hdl%daddr, unit_, len(unit_)) 
    257283      ENDIF 
    258284 
    259285      IF (PRESENT(valid_max_)) THEN 
    260         CALL cxios_set_field_valid_max(field_hdl%daddr, valid_max_) 
     286        CALL cxios_set_field_valid_max & 
     287      (field_hdl%daddr, valid_max_) 
    261288      ENDIF 
    262289 
    263290      IF (PRESENT(valid_min_)) THEN 
    264         CALL cxios_set_field_valid_min(field_hdl%daddr, valid_min_) 
     291        CALL cxios_set_field_valid_min & 
     292      (field_hdl%daddr, valid_min_) 
    265293      ENDIF 
    266294 
    … …  
    309337      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min 
    310338 
    311       CALL xios(get_field_handle)(field_id,field_hdl) 
     339      CALL xios(get_field_handle) & 
     340      (field_id,field_hdl) 
    312341      CALL xios(get_field_attr_hdl_)   & 
    313342      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
    … …  
    409438 
    410439      IF (PRESENT(add_offset_)) THEN 
    411         CALL cxios_get_field_add_offset(field_hdl%daddr, add_offset_) 
     440        CALL cxios_get_field_add_offset & 
     441      (field_hdl%daddr, add_offset_) 
    412442      ENDIF 
    413443 
    414444      IF (PRESENT(axis_ref_)) THEN 
    415         CALL cxios_get_field_axis_ref(field_hdl%daddr, axis_ref_, len(axis_ref_)) 
     445        CALL cxios_get_field_axis_ref & 
     446      (field_hdl%daddr, axis_ref_, len(axis_ref_)) 
    416447      ENDIF 
    417448 
    418449      IF (PRESENT(compression_level_)) THEN 
    419         CALL cxios_get_field_compression_level(field_hdl%daddr, compression_level_) 
     450        CALL cxios_get_field_compression_level & 
     451      (field_hdl%daddr, compression_level_) 
    420452      ENDIF 
    421453 
    422454      IF (PRESENT(default_value_)) THEN 
    423         CALL cxios_get_field_default_value(field_hdl%daddr, default_value_) 
     455        CALL cxios_get_field_default_value & 
     456      (field_hdl%daddr, default_value_) 
    424457      ENDIF 
    425458 
    426459      IF (PRESENT(detect_missing_value_)) THEN 
    427         CALL cxios_get_field_detect_missing_value(field_hdl%daddr, detect_missing_value__tmp) 
     460        CALL cxios_get_field_detect_missing_value & 
     461      (field_hdl%daddr, detect_missing_value__tmp) 
    428462        detect_missing_value_ = detect_missing_value__tmp 
    429463      ENDIF 
    430464 
    431465      IF (PRESENT(domain_ref_)) THEN 
    432         CALL cxios_get_field_domain_ref(field_hdl%daddr, domain_ref_, len(domain_ref_)) 
     466        CALL cxios_get_field_domain_ref & 
     467      (field_hdl%daddr, domain_ref_, len(domain_ref_)) 
    433468      ENDIF 
    434469 
    435470      IF (PRESENT(enabled_)) THEN 
    436         CALL cxios_get_field_enabled(field_hdl%daddr, enabled__tmp) 
     471        CALL cxios_get_field_enabled & 
     472      (field_hdl%daddr, enabled__tmp) 
    437473        enabled_ = enabled__tmp 
    438474      ENDIF 
    439475 
    440476      IF (PRESENT(field_ref_)) THEN 
    441         CALL cxios_get_field_field_ref(field_hdl%daddr, field_ref_, len(field_ref_)) 
     477        CALL cxios_get_field_field_ref & 
     478      (field_hdl%daddr, field_ref_, len(field_ref_)) 
    442479      ENDIF 
    443480 
    444481      IF (PRESENT(freq_offset_)) THEN 
    445         CALL cxios_get_field_freq_offset(field_hdl%daddr, freq_offset_) 
     482        CALL cxios_get_field_freq_offset & 
     483      (field_hdl%daddr, freq_offset_) 
    446484      ENDIF 
    447485 
    448486      IF (PRESENT(freq_op_)) THEN 
    449         CALL cxios_get_field_freq_op(field_hdl%daddr, freq_op_) 
     487        CALL cxios_get_field_freq_op & 
     488      (field_hdl%daddr, freq_op_) 
    450489      ENDIF 
    451490 
    452491      IF (PRESENT(grid_path_)) THEN 
    453         CALL cxios_get_field_grid_path(field_hdl%daddr, grid_path_, len(grid_path_)) 
     492        CALL cxios_get_field_grid_path & 
     493      (field_hdl%daddr, grid_path_, len(grid_path_)) 
    454494      ENDIF 
    455495 
    456496      IF (PRESENT(grid_ref_)) THEN 
    457         CALL cxios_get_field_grid_ref(field_hdl%daddr, grid_ref_, len(grid_ref_)) 
     497        CALL cxios_get_field_grid_ref & 
     498      (field_hdl%daddr, grid_ref_, len(grid_ref_)) 
    458499      ENDIF 
    459500 
    460501      IF (PRESENT(indexed_output_)) THEN 
    461         CALL cxios_get_field_indexed_output(field_hdl%daddr, indexed_output__tmp) 
     502        CALL cxios_get_field_indexed_output & 
     503      (field_hdl%daddr, indexed_output__tmp) 
    462504        indexed_output_ = indexed_output__tmp 
    463505      ENDIF 
    464506 
    465507      IF (PRESENT(level_)) THEN 
    466         CALL cxios_get_field_level(field_hdl%daddr, level_) 
     508        CALL cxios_get_field_level & 
     509      (field_hdl%daddr, level_) 
    467510      ENDIF 
    468511 
    469512      IF (PRESENT(long_name_)) THEN 
    470         CALL cxios_get_field_long_name(field_hdl%daddr, long_name_, len(long_name_)) 
     513        CALL cxios_get_field_long_name & 
     514      (field_hdl%daddr, long_name_, len(long_name_)) 
    471515      ENDIF 
    472516 
    473517      IF (PRESENT(name_)) THEN 
    474         CALL cxios_get_field_name(field_hdl%daddr, name_, len(name_)) 
     518        CALL cxios_get_field_name & 
     519      (field_hdl%daddr, name_, len(name_)) 
    475520      ENDIF 
    476521 
    477522      IF (PRESENT(operation_)) THEN 
    478         CALL cxios_get_field_operation(field_hdl%daddr, operation_, len(operation_)) 
     523        CALL cxios_get_field_operation & 
     524      (field_hdl%daddr, operation_, len(operation_)) 
    479525      ENDIF 
    480526 
    481527      IF (PRESENT(prec_)) THEN 
    482         CALL cxios_get_field_prec(field_hdl%daddr, prec_) 
     528        CALL cxios_get_field_prec & 
     529      (field_hdl%daddr, prec_) 
    483530      ENDIF 
    484531 
    485532      IF (PRESENT(read_access_)) THEN 
    486         CALL cxios_get_field_read_access(field_hdl%daddr, read_access__tmp) 
     533        CALL cxios_get_field_read_access & 
     534      (field_hdl%daddr, read_access__tmp) 
    487535        read_access_ = read_access__tmp 
    488536      ENDIF 
    489537 
    490538      IF (PRESENT(scalar_ref_)) THEN 
    491         CALL cxios_get_field_scalar_ref(field_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
     539        CALL cxios_get_field_scalar_ref & 
     540      (field_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
    492541      ENDIF 
    493542 
    494543      IF (PRESENT(scale_factor_)) THEN 
    495         CALL cxios_get_field_scale_factor(field_hdl%daddr, scale_factor_) 
     544        CALL cxios_get_field_scale_factor & 
     545      (field_hdl%daddr, scale_factor_) 
    496546      ENDIF 
    497547 
    498548      IF (PRESENT(standard_name_)) THEN 
    499         CALL cxios_get_field_standard_name(field_hdl%daddr, standard_name_, len(standard_name_)) 
     549        CALL cxios_get_field_standard_name & 
     550      (field_hdl%daddr, standard_name_, len(standard_name_)) 
    500551      ENDIF 
    501552 
    502553      IF (PRESENT(ts_enabled_)) THEN 
    503         CALL cxios_get_field_ts_enabled(field_hdl%daddr, ts_enabled__tmp) 
     554        CALL cxios_get_field_ts_enabled & 
     555      (field_hdl%daddr, ts_enabled__tmp) 
    504556        ts_enabled_ = ts_enabled__tmp 
    505557      ENDIF 
    506558 
    507559      IF (PRESENT(ts_split_freq_)) THEN 
    508         CALL cxios_get_field_ts_split_freq(field_hdl%daddr, ts_split_freq_) 
     560        CALL cxios_get_field_ts_split_freq & 
     561      (field_hdl%daddr, ts_split_freq_) 
    509562      ENDIF 
    510563 
    511564      IF (PRESENT(unit_)) THEN 
    512         CALL cxios_get_field_unit(field_hdl%daddr, unit_, len(unit_)) 
     565        CALL cxios_get_field_unit & 
     566      (field_hdl%daddr, unit_, len(unit_)) 
    513567      ENDIF 
    514568 
    515569      IF (PRESENT(valid_max_)) THEN 
    516         CALL cxios_get_field_valid_max(field_hdl%daddr, valid_max_) 
     570        CALL cxios_get_field_valid_max & 
     571      (field_hdl%daddr, valid_max_) 
    517572      ENDIF 
    518573 
    519574      IF (PRESENT(valid_min_)) THEN 
    520         CALL cxios_get_field_valid_min(field_hdl%daddr, valid_min_) 
     575        CALL cxios_get_field_valid_min & 
     576      (field_hdl%daddr, valid_min_) 
    521577      ENDIF 
    522578 
    … …  
    587643      LOGICAL(KIND=C_BOOL) :: valid_min_tmp 
    588644 
    589       CALL xios(get_field_handle)(field_id,field_hdl) 
     645      CALL xios(get_field_handle) & 
     646      (field_id,field_hdl) 
    590647      CALL xios(is_defined_field_attr_hdl_)   & 
    591648      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
    … …  
    731788 
    732789      IF (PRESENT(add_offset_)) THEN 
    733         add_offset__tmp = cxios_is_defined_field_add_offset(field_hdl%daddr) 
     790        add_offset__tmp = cxios_is_defined_field_add_offset & 
     791      (field_hdl%daddr) 
    734792        add_offset_ = add_offset__tmp 
    735793      ENDIF 
    736794 
    737795      IF (PRESENT(axis_ref_)) THEN 
    738         axis_ref__tmp = cxios_is_defined_field_axis_ref(field_hdl%daddr) 
     796        axis_ref__tmp = cxios_is_defined_field_axis_ref & 
     797      (field_hdl%daddr) 
    739798        axis_ref_ = axis_ref__tmp 
    740799      ENDIF 
    741800 
    742801      IF (PRESENT(compression_level_)) THEN 
    743         compression_level__tmp = cxios_is_defined_field_compression_level(field_hdl%daddr) 
     802        compression_level__tmp = cxios_is_defined_field_compression_level & 
     803      (field_hdl%daddr) 
    744804        compression_level_ = compression_level__tmp 
    745805      ENDIF 
    746806 
    747807      IF (PRESENT(default_value_)) THEN 
    748         default_value__tmp = cxios_is_defined_field_default_value(field_hdl%daddr) 
     808        default_value__tmp = cxios_is_defined_field_default_value & 
     809      (field_hdl%daddr) 
    749810        default_value_ = default_value__tmp 
    750811      ENDIF 
    751812 
    752813      IF (PRESENT(detect_missing_value_)) THEN 
    753         detect_missing_value__tmp = cxios_is_defined_field_detect_missing_value(field_hdl%daddr) 
     814        detect_missing_value__tmp = cxios_is_defined_field_detect_missing_value & 
     815      (field_hdl%daddr) 
    754816        detect_missing_value_ = detect_missing_value__tmp 
    755817      ENDIF 
    756818 
    757819      IF (PRESENT(domain_ref_)) THEN 
    758         domain_ref__tmp = cxios_is_defined_field_domain_ref(field_hdl%daddr) 
     820        domain_ref__tmp = cxios_is_defined_field_domain_ref & 
     821      (field_hdl%daddr) 
    759822        domain_ref_ = domain_ref__tmp 
    760823      ENDIF 
    761824 
    762825      IF (PRESENT(enabled_)) THEN 
    763         enabled__tmp = cxios_is_defined_field_enabled(field_hdl%daddr) 
     826        enabled__tmp = cxios_is_defined_field_enabled & 
     827      (field_hdl%daddr) 
    764828        enabled_ = enabled__tmp 
    765829      ENDIF 
    766830 
    767831      IF (PRESENT(field_ref_)) THEN 
    768         field_ref__tmp = cxios_is_defined_field_field_ref(field_hdl%daddr) 
     832        field_ref__tmp = cxios_is_defined_field_field_ref & 
     833      (field_hdl%daddr) 
    769834        field_ref_ = field_ref__tmp 
    770835      ENDIF 
    771836 
    772837      IF (PRESENT(freq_offset_)) THEN 
    773         freq_offset__tmp = cxios_is_defined_field_freq_offset(field_hdl%daddr) 
     838        freq_offset__tmp = cxios_is_defined_field_freq_offset & 
     839      (field_hdl%daddr) 
    774840        freq_offset_ = freq_offset__tmp 
    775841      ENDIF 
    776842 
    777843      IF (PRESENT(freq_op_)) THEN 
    778         freq_op__tmp = cxios_is_defined_field_freq_op(field_hdl%daddr) 
     844        freq_op__tmp = cxios_is_defined_field_freq_op & 
     845      (field_hdl%daddr) 
    779846        freq_op_ = freq_op__tmp 
    780847      ENDIF 
    781848 
    782849      IF (PRESENT(grid_path_)) THEN 
    783         grid_path__tmp = cxios_is_defined_field_grid_path(field_hdl%daddr) 
     850        grid_path__tmp = cxios_is_defined_field_grid_path & 
     851      (field_hdl%daddr) 
    784852        grid_path_ = grid_path__tmp 
    785853      ENDIF 
    786854 
    787855      IF (PRESENT(grid_ref_)) THEN 
    788         grid_ref__tmp = cxios_is_defined_field_grid_ref(field_hdl%daddr) 
     856        grid_ref__tmp = cxios_is_defined_field_grid_ref & 
     857      (field_hdl%daddr) 
    789858        grid_ref_ = grid_ref__tmp 
    790859      ENDIF 
    791860 
    792861      IF (PRESENT(indexed_output_)) THEN 
    793         indexed_output__tmp = cxios_is_defined_field_indexed_output(field_hdl%daddr) 
     862        indexed_output__tmp = cxios_is_defined_field_indexed_output & 
     863      (field_hdl%daddr) 
    794864        indexed_output_ = indexed_output__tmp 
    795865      ENDIF 
    796866 
    797867      IF (PRESENT(level_)) THEN 
    798         level__tmp = cxios_is_defined_field_level(field_hdl%daddr) 
     868        level__tmp = cxios_is_defined_field_level & 
     869      (field_hdl%daddr) 
    799870        level_ = level__tmp 
    800871      ENDIF 
    801872 
    802873      IF (PRESENT(long_name_)) THEN 
    803         long_name__tmp = cxios_is_defined_field_long_name(field_hdl%daddr) 
     874        long_name__tmp = cxios_is_defined_field_long_name & 
     875      (field_hdl%daddr) 
    804876        long_name_ = long_name__tmp 
    805877      ENDIF 
    806878 
    807879      IF (PRESENT(name_)) THEN 
    808         name__tmp = cxios_is_defined_field_name(field_hdl%daddr) 
     880        name__tmp = cxios_is_defined_field_name & 
     881      (field_hdl%daddr) 
    809882        name_ = name__tmp 
    810883      ENDIF 
    811884 
    812885      IF (PRESENT(operation_)) THEN 
    813         operation__tmp = cxios_is_defined_field_operation(field_hdl%daddr) 
     886        operation__tmp = cxios_is_defined_field_operation & 
     887      (field_hdl%daddr) 
    814888        operation_ = operation__tmp 
    815889      ENDIF 
    816890 
    817891      IF (PRESENT(prec_)) THEN 
    818         prec__tmp = cxios_is_defined_field_prec(field_hdl%daddr) 
     892        prec__tmp = cxios_is_defined_field_prec & 
     893      (field_hdl%daddr) 
    819894        prec_ = prec__tmp 
    820895      ENDIF 
    821896 
    822897      IF (PRESENT(read_access_)) THEN 
    823         read_access__tmp = cxios_is_defined_field_read_access(field_hdl%daddr) 
     898        read_access__tmp = cxios_is_defined_field_read_access & 
     899      (field_hdl%daddr) 
    824900        read_access_ = read_access__tmp 
    825901      ENDIF 
    826902 
    827903      IF (PRESENT(scalar_ref_)) THEN 
    828         scalar_ref__tmp = cxios_is_defined_field_scalar_ref(field_hdl%daddr) 
     904        scalar_ref__tmp = cxios_is_defined_field_scalar_ref & 
     905      (field_hdl%daddr) 
    829906        scalar_ref_ = scalar_ref__tmp 
    830907      ENDIF 
    831908 
    832909      IF (PRESENT(scale_factor_)) THEN 
    833         scale_factor__tmp = cxios_is_defined_field_scale_factor(field_hdl%daddr) 
     910        scale_factor__tmp = cxios_is_defined_field_scale_factor & 
     911      (field_hdl%daddr) 
    834912        scale_factor_ = scale_factor__tmp 
    835913      ENDIF 
    836914 
    837915      IF (PRESENT(standard_name_)) THEN 
    838         standard_name__tmp = cxios_is_defined_field_standard_name(field_hdl%daddr) 
     916        standard_name__tmp = cxios_is_defined_field_standard_name & 
     917      (field_hdl%daddr) 
    839918        standard_name_ = standard_name__tmp 
    840919      ENDIF 
    841920 
    842921      IF (PRESENT(ts_enabled_)) THEN 
    843         ts_enabled__tmp = cxios_is_defined_field_ts_enabled(field_hdl%daddr) 
     922        ts_enabled__tmp = cxios_is_defined_field_ts_enabled & 
     923      (field_hdl%daddr) 
    844924        ts_enabled_ = ts_enabled__tmp 
    845925      ENDIF 
    846926 
    847927      IF (PRESENT(ts_split_freq_)) THEN 
    848         ts_split_freq__tmp = cxios_is_defined_field_ts_split_freq(field_hdl%daddr) 
     928        ts_split_freq__tmp = cxios_is_defined_field_ts_split_freq & 
     929      (field_hdl%daddr) 
    849930        ts_split_freq_ = ts_split_freq__tmp 
    850931      ENDIF 
    851932 
    852933      IF (PRESENT(unit_)) THEN 
    853         unit__tmp = cxios_is_defined_field_unit(field_hdl%daddr) 
     934        unit__tmp = cxios_is_defined_field_unit & 
     935      (field_hdl%daddr) 
    854936        unit_ = unit__tmp 
    855937      ENDIF 
    856938 
    857939      IF (PRESENT(valid_max_)) THEN 
    858         valid_max__tmp = cxios_is_defined_field_valid_max(field_hdl%daddr) 
     940        valid_max__tmp = cxios_is_defined_field_valid_max & 
     941      (field_hdl%daddr) 
    859942        valid_max_ = valid_max__tmp 
    860943      ENDIF 
    861944 
    862945      IF (PRESENT(valid_min_)) THEN 
    863         valid_min__tmp = cxios_is_defined_field_valid_min(field_hdl%daddr) 
     946        valid_min__tmp = cxios_is_defined_field_valid_min & 
     947      (field_hdl%daddr) 
    864948        valid_min_ = valid_min__tmp 
    865949      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/ifieldgroup_attr.F90

    r891 r966  
    5454      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min 
    5555 
    56       CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 
     56      CALL xios(get_fieldgroup_handle) & 
     57      (fieldgroup_id,fieldgroup_hdl) 
    5758      CALL xios(set_fieldgroup_attr_hdl_)   & 
    5859      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
    … …  
    156157 
    157158      IF (PRESENT(add_offset_)) THEN 
    158         CALL cxios_set_fieldgroup_add_offset(fieldgroup_hdl%daddr, add_offset_) 
     159        CALL cxios_set_fieldgroup_add_offset & 
     160      (fieldgroup_hdl%daddr, add_offset_) 
    159161      ENDIF 
    160162 
    161163      IF (PRESENT(axis_ref_)) THEN 
    162         CALL cxios_set_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 
     164        CALL cxios_set_fieldgroup_axis_ref & 
     165      (fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 
    163166      ENDIF 
    164167 
    165168      IF (PRESENT(compression_level_)) THEN 
    166         CALL cxios_set_fieldgroup_compression_level(fieldgroup_hdl%daddr, compression_level_) 
     169        CALL cxios_set_fieldgroup_compression_level & 
     170      (fieldgroup_hdl%daddr, compression_level_) 
    167171      ENDIF 
    168172 
    169173      IF (PRESENT(default_value_)) THEN 
    170         CALL cxios_set_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_) 
     174        CALL cxios_set_fieldgroup_default_value & 
     175      (fieldgroup_hdl%daddr, default_value_) 
    171176      ENDIF 
    172177 
    173178      IF (PRESENT(detect_missing_value_)) THEN 
    174179        detect_missing_value__tmp = detect_missing_value_ 
    175         CALL cxios_set_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr, detect_missing_value__tmp) 
     180        CALL cxios_set_fieldgroup_detect_missing_value & 
     181      (fieldgroup_hdl%daddr, detect_missing_value__tmp) 
    176182      ENDIF 
    177183 
    178184      IF (PRESENT(domain_ref_)) THEN 
    179         CALL cxios_set_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_)) 
     185        CALL cxios_set_fieldgroup_domain_ref & 
     186      (fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_)) 
    180187      ENDIF 
    181188 
    182189      IF (PRESENT(enabled_)) THEN 
    183190        enabled__tmp = enabled_ 
    184         CALL cxios_set_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp) 
     191        CALL cxios_set_fieldgroup_enabled & 
     192      (fieldgroup_hdl%daddr, enabled__tmp) 
    185193      ENDIF 
    186194 
    187195      IF (PRESENT(field_ref_)) THEN 
    188         CALL cxios_set_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_)) 
     196        CALL cxios_set_fieldgroup_field_ref & 
     197      (fieldgroup_hdl%daddr, field_ref_, len(field_ref_)) 
    189198      ENDIF 
    190199 
    191200      IF (PRESENT(freq_offset_)) THEN 
    192         CALL cxios_set_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_) 
     201        CALL cxios_set_fieldgroup_freq_offset & 
     202      (fieldgroup_hdl%daddr, freq_offset_) 
    193203      ENDIF 
    194204 
    195205      IF (PRESENT(freq_op_)) THEN 
    196         CALL cxios_set_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_) 
     206        CALL cxios_set_fieldgroup_freq_op & 
     207      (fieldgroup_hdl%daddr, freq_op_) 
    197208      ENDIF 
    198209 
    199210      IF (PRESENT(grid_path_)) THEN 
    200         CALL cxios_set_fieldgroup_grid_path(fieldgroup_hdl%daddr, grid_path_, len(grid_path_)) 
     211        CALL cxios_set_fieldgroup_grid_path & 
     212      (fieldgroup_hdl%daddr, grid_path_, len(grid_path_)) 
    201213      ENDIF 
    202214 
    203215      IF (PRESENT(grid_ref_)) THEN 
    204         CALL cxios_set_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_)) 
     216        CALL cxios_set_fieldgroup_grid_ref & 
     217      (fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_)) 
    205218      ENDIF 
    206219 
    207220      IF (PRESENT(group_ref_)) THEN 
    208         CALL cxios_set_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_)) 
     221        CALL cxios_set_fieldgroup_group_ref & 
     222      (fieldgroup_hdl%daddr, group_ref_, len(group_ref_)) 
    209223      ENDIF 
    210224 
    211225      IF (PRESENT(indexed_output_)) THEN 
    212226        indexed_output__tmp = indexed_output_ 
    213         CALL cxios_set_fieldgroup_indexed_output(fieldgroup_hdl%daddr, indexed_output__tmp) 
     227        CALL cxios_set_fieldgroup_indexed_output & 
     228      (fieldgroup_hdl%daddr, indexed_output__tmp) 
    214229      ENDIF 
    215230 
    216231      IF (PRESENT(level_)) THEN 
    217         CALL cxios_set_fieldgroup_level(fieldgroup_hdl%daddr, level_) 
     232        CALL cxios_set_fieldgroup_level & 
     233      (fieldgroup_hdl%daddr, level_) 
    218234      ENDIF 
    219235 
    220236      IF (PRESENT(long_name_)) THEN 
    221         CALL cxios_set_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_)) 
     237        CALL cxios_set_fieldgroup_long_name & 
     238      (fieldgroup_hdl%daddr, long_name_, len(long_name_)) 
    222239      ENDIF 
    223240 
    224241      IF (PRESENT(name_)) THEN 
    225         CALL cxios_set_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_)) 
     242        CALL cxios_set_fieldgroup_name & 
     243      (fieldgroup_hdl%daddr, name_, len(name_)) 
    226244      ENDIF 
    227245 
    228246      IF (PRESENT(operation_)) THEN 
    229         CALL cxios_set_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_)) 
     247        CALL cxios_set_fieldgroup_operation & 
     248      (fieldgroup_hdl%daddr, operation_, len(operation_)) 
    230249      ENDIF 
    231250 
    232251      IF (PRESENT(prec_)) THEN 
    233         CALL cxios_set_fieldgroup_prec(fieldgroup_hdl%daddr, prec_) 
     252        CALL cxios_set_fieldgroup_prec & 
     253      (fieldgroup_hdl%daddr, prec_) 
    234254      ENDIF 
    235255 
    236256      IF (PRESENT(read_access_)) THEN 
    237257        read_access__tmp = read_access_ 
    238         CALL cxios_set_fieldgroup_read_access(fieldgroup_hdl%daddr, read_access__tmp) 
     258        CALL cxios_set_fieldgroup_read_access & 
     259      (fieldgroup_hdl%daddr, read_access__tmp) 
    239260      ENDIF 
    240261 
    241262      IF (PRESENT(scalar_ref_)) THEN 
    242         CALL cxios_set_fieldgroup_scalar_ref(fieldgroup_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
     263        CALL cxios_set_fieldgroup_scalar_ref & 
     264      (fieldgroup_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
    243265      ENDIF 
    244266 
    245267      IF (PRESENT(scale_factor_)) THEN 
    246         CALL cxios_set_fieldgroup_scale_factor(fieldgroup_hdl%daddr, scale_factor_) 
     268        CALL cxios_set_fieldgroup_scale_factor & 
     269      (fieldgroup_hdl%daddr, scale_factor_) 
    247270      ENDIF 
    248271 
    249272      IF (PRESENT(standard_name_)) THEN 
    250         CALL cxios_set_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_)) 
     273        CALL cxios_set_fieldgroup_standard_name & 
     274      (fieldgroup_hdl%daddr, standard_name_, len(standard_name_)) 
    251275      ENDIF 
    252276 
    253277      IF (PRESENT(ts_enabled_)) THEN 
    254278        ts_enabled__tmp = ts_enabled_ 
    255         CALL cxios_set_fieldgroup_ts_enabled(fieldgroup_hdl%daddr, ts_enabled__tmp) 
     279        CALL cxios_set_fieldgroup_ts_enabled & 
     280      (fieldgroup_hdl%daddr, ts_enabled__tmp) 
    256281      ENDIF 
    257282 
    258283      IF (PRESENT(ts_split_freq_)) THEN 
    259         CALL cxios_set_fieldgroup_ts_split_freq(fieldgroup_hdl%daddr, ts_split_freq_) 
     284        CALL cxios_set_fieldgroup_ts_split_freq & 
     285      (fieldgroup_hdl%daddr, ts_split_freq_) 
    260286      ENDIF 
    261287 
    262288      IF (PRESENT(unit_)) THEN 
    263         CALL cxios_set_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_)) 
     289        CALL cxios_set_fieldgroup_unit & 
     290      (fieldgroup_hdl%daddr, unit_, len(unit_)) 
    264291      ENDIF 
    265292 
    266293      IF (PRESENT(valid_max_)) THEN 
    267         CALL cxios_set_fieldgroup_valid_max(fieldgroup_hdl%daddr, valid_max_) 
     294        CALL cxios_set_fieldgroup_valid_max & 
     295      (fieldgroup_hdl%daddr, valid_max_) 
    268296      ENDIF 
    269297 
    270298      IF (PRESENT(valid_min_)) THEN 
    271         CALL cxios_set_fieldgroup_valid_min(fieldgroup_hdl%daddr, valid_min_) 
     299        CALL cxios_set_fieldgroup_valid_min & 
     300      (fieldgroup_hdl%daddr, valid_min_) 
    272301      ENDIF 
    273302 
    … …  
    317346      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min 
    318347 
    319       CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 
     348      CALL xios(get_fieldgroup_handle) & 
     349      (fieldgroup_id,fieldgroup_hdl) 
    320350      CALL xios(get_fieldgroup_attr_hdl_)   & 
    321351      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
    … …  
    419449 
    420450      IF (PRESENT(add_offset_)) THEN 
    421         CALL cxios_get_fieldgroup_add_offset(fieldgroup_hdl%daddr, add_offset_) 
     451        CALL cxios_get_fieldgroup_add_offset & 
     452      (fieldgroup_hdl%daddr, add_offset_) 
    422453      ENDIF 
    423454 
    424455      IF (PRESENT(axis_ref_)) THEN 
    425         CALL cxios_get_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 
     456        CALL cxios_get_fieldgroup_axis_ref & 
     457      (fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 
    426458      ENDIF 
    427459 
    428460      IF (PRESENT(compression_level_)) THEN 
    429         CALL cxios_get_fieldgroup_compression_level(fieldgroup_hdl%daddr, compression_level_) 
     461        CALL cxios_get_fieldgroup_compression_level & 
     462      (fieldgroup_hdl%daddr, compression_level_) 
    430463      ENDIF 
    431464 
    432465      IF (PRESENT(default_value_)) THEN 
    433         CALL cxios_get_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_) 
     466        CALL cxios_get_fieldgroup_default_value & 
     467      (fieldgroup_hdl%daddr, default_value_) 
    434468      ENDIF 
    435469 
    436470      IF (PRESENT(detect_missing_value_)) THEN 
    437         CALL cxios_get_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr, detect_missing_value__tmp) 
     471        CALL cxios_get_fieldgroup_detect_missing_value & 
     472      (fieldgroup_hdl%daddr, detect_missing_value__tmp) 
    438473        detect_missing_value_ = detect_missing_value__tmp 
    439474      ENDIF 
    440475 
    441476      IF (PRESENT(domain_ref_)) THEN 
    442         CALL cxios_get_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_)) 
     477        CALL cxios_get_fieldgroup_domain_ref & 
     478      (fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_)) 
    443479      ENDIF 
    444480 
    445481      IF (PRESENT(enabled_)) THEN 
    446         CALL cxios_get_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp) 
     482        CALL cxios_get_fieldgroup_enabled & 
     483      (fieldgroup_hdl%daddr, enabled__tmp) 
    447484        enabled_ = enabled__tmp 
    448485      ENDIF 
    449486 
    450487      IF (PRESENT(field_ref_)) THEN 
    451         CALL cxios_get_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_)) 
     488        CALL cxios_get_fieldgroup_field_ref & 
     489      (fieldgroup_hdl%daddr, field_ref_, len(field_ref_)) 
    452490      ENDIF 
    453491 
    454492      IF (PRESENT(freq_offset_)) THEN 
    455         CALL cxios_get_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_) 
     493        CALL cxios_get_fieldgroup_freq_offset & 
     494      (fieldgroup_hdl%daddr, freq_offset_) 
    456495      ENDIF 
    457496 
    458497      IF (PRESENT(freq_op_)) THEN 
    459         CALL cxios_get_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_) 
     498        CALL cxios_get_fieldgroup_freq_op & 
     499      (fieldgroup_hdl%daddr, freq_op_) 
    460500      ENDIF 
    461501 
    462502      IF (PRESENT(grid_path_)) THEN 
    463         CALL cxios_get_fieldgroup_grid_path(fieldgroup_hdl%daddr, grid_path_, len(grid_path_)) 
     503        CALL cxios_get_fieldgroup_grid_path & 
     504      (fieldgroup_hdl%daddr, grid_path_, len(grid_path_)) 
    464505      ENDIF 
    465506 
    466507      IF (PRESENT(grid_ref_)) THEN 
    467         CALL cxios_get_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_)) 
     508        CALL cxios_get_fieldgroup_grid_ref & 
     509      (fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_)) 
    468510      ENDIF 
    469511 
    470512      IF (PRESENT(group_ref_)) THEN 
    471         CALL cxios_get_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_)) 
     513        CALL cxios_get_fieldgroup_group_ref & 
     514      (fieldgroup_hdl%daddr, group_ref_, len(group_ref_)) 
    472515      ENDIF 
    473516 
    474517      IF (PRESENT(indexed_output_)) THEN 
    475         CALL cxios_get_fieldgroup_indexed_output(fieldgroup_hdl%daddr, indexed_output__tmp) 
     518        CALL cxios_get_fieldgroup_indexed_output & 
     519      (fieldgroup_hdl%daddr, indexed_output__tmp) 
    476520        indexed_output_ = indexed_output__tmp 
    477521      ENDIF 
    478522 
    479523      IF (PRESENT(level_)) THEN 
    480         CALL cxios_get_fieldgroup_level(fieldgroup_hdl%daddr, level_) 
     524        CALL cxios_get_fieldgroup_level & 
     525      (fieldgroup_hdl%daddr, level_) 
    481526      ENDIF 
    482527 
    483528      IF (PRESENT(long_name_)) THEN 
    484         CALL cxios_get_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_)) 
     529        CALL cxios_get_fieldgroup_long_name & 
     530      (fieldgroup_hdl%daddr, long_name_, len(long_name_)) 
    485531      ENDIF 
    486532 
    487533      IF (PRESENT(name_)) THEN 
    488         CALL cxios_get_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_)) 
     534        CALL cxios_get_fieldgroup_name & 
     535      (fieldgroup_hdl%daddr, name_, len(name_)) 
    489536      ENDIF 
    490537 
    491538      IF (PRESENT(operation_)) THEN 
    492         CALL cxios_get_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_)) 
     539        CALL cxios_get_fieldgroup_operation & 
     540      (fieldgroup_hdl%daddr, operation_, len(operation_)) 
    493541      ENDIF 
    494542 
    495543      IF (PRESENT(prec_)) THEN 
    496         CALL cxios_get_fieldgroup_prec(fieldgroup_hdl%daddr, prec_) 
     544        CALL cxios_get_fieldgroup_prec & 
     545      (fieldgroup_hdl%daddr, prec_) 
    497546      ENDIF 
    498547 
    499548      IF (PRESENT(read_access_)) THEN 
    500         CALL cxios_get_fieldgroup_read_access(fieldgroup_hdl%daddr, read_access__tmp) 
     549        CALL cxios_get_fieldgroup_read_access & 
     550      (fieldgroup_hdl%daddr, read_access__tmp) 
    501551        read_access_ = read_access__tmp 
    502552      ENDIF 
    503553 
    504554      IF (PRESENT(scalar_ref_)) THEN 
    505         CALL cxios_get_fieldgroup_scalar_ref(fieldgroup_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
     555        CALL cxios_get_fieldgroup_scalar_ref & 
     556      (fieldgroup_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
    506557      ENDIF 
    507558 
    508559      IF (PRESENT(scale_factor_)) THEN 
    509         CALL cxios_get_fieldgroup_scale_factor(fieldgroup_hdl%daddr, scale_factor_) 
     560        CALL cxios_get_fieldgroup_scale_factor & 
     561      (fieldgroup_hdl%daddr, scale_factor_) 
    510562      ENDIF 
    511563 
    512564      IF (PRESENT(standard_name_)) THEN 
    513         CALL cxios_get_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_)) 
     565        CALL cxios_get_fieldgroup_standard_name & 
     566      (fieldgroup_hdl%daddr, standard_name_, len(standard_name_)) 
    514567      ENDIF 
    515568 
    516569      IF (PRESENT(ts_enabled_)) THEN 
    517         CALL cxios_get_fieldgroup_ts_enabled(fieldgroup_hdl%daddr, ts_enabled__tmp) 
     570        CALL cxios_get_fieldgroup_ts_enabled & 
     571      (fieldgroup_hdl%daddr, ts_enabled__tmp) 
    518572        ts_enabled_ = ts_enabled__tmp 
    519573      ENDIF 
    520574 
    521575      IF (PRESENT(ts_split_freq_)) THEN 
    522         CALL cxios_get_fieldgroup_ts_split_freq(fieldgroup_hdl%daddr, ts_split_freq_) 
     576        CALL cxios_get_fieldgroup_ts_split_freq & 
     577      (fieldgroup_hdl%daddr, ts_split_freq_) 
    523578      ENDIF 
    524579 
    525580      IF (PRESENT(unit_)) THEN 
    526         CALL cxios_get_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_)) 
     581        CALL cxios_get_fieldgroup_unit & 
     582      (fieldgroup_hdl%daddr, unit_, len(unit_)) 
    527583      ENDIF 
    528584 
    529585      IF (PRESENT(valid_max_)) THEN 
    530         CALL cxios_get_fieldgroup_valid_max(fieldgroup_hdl%daddr, valid_max_) 
     586        CALL cxios_get_fieldgroup_valid_max & 
     587      (fieldgroup_hdl%daddr, valid_max_) 
    531588      ENDIF 
    532589 
    533590      IF (PRESENT(valid_min_)) THEN 
    534         CALL cxios_get_fieldgroup_valid_min(fieldgroup_hdl%daddr, valid_min_) 
     591        CALL cxios_get_fieldgroup_valid_min & 
     592      (fieldgroup_hdl%daddr, valid_min_) 
    535593      ENDIF 
    536594 
    … …  
    603661      LOGICAL(KIND=C_BOOL) :: valid_min_tmp 
    604662 
    605       CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl) 
     663      CALL xios(get_fieldgroup_handle) & 
     664      (fieldgroup_id,fieldgroup_hdl) 
    606665      CALL xios(is_defined_fieldgroup_attr_hdl_)   & 
    607666      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
    … …  
    751810 
    752811      IF (PRESENT(add_offset_)) THEN 
    753         add_offset__tmp = cxios_is_defined_fieldgroup_add_offset(fieldgroup_hdl%daddr) 
     812        add_offset__tmp = cxios_is_defined_fieldgroup_add_offset & 
     813      (fieldgroup_hdl%daddr) 
    754814        add_offset_ = add_offset__tmp 
    755815      ENDIF 
    756816 
    757817      IF (PRESENT(axis_ref_)) THEN 
    758         axis_ref__tmp = cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl%daddr) 
     818        axis_ref__tmp = cxios_is_defined_fieldgroup_axis_ref & 
     819      (fieldgroup_hdl%daddr) 
    759820        axis_ref_ = axis_ref__tmp 
    760821      ENDIF 
    761822 
    762823      IF (PRESENT(compression_level_)) THEN 
    763         compression_level__tmp = cxios_is_defined_fieldgroup_compression_level(fieldgroup_hdl%daddr) 
     824        compression_level__tmp = cxios_is_defined_fieldgroup_compression_level & 
     825      (fieldgroup_hdl%daddr) 
    764826        compression_level_ = compression_level__tmp 
    765827      ENDIF 
    766828 
    767829      IF (PRESENT(default_value_)) THEN 
    768         default_value__tmp = cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl%daddr) 
     830        default_value__tmp = cxios_is_defined_fieldgroup_default_value & 
     831      (fieldgroup_hdl%daddr) 
    769832        default_value_ = default_value__tmp 
    770833      ENDIF 
    771834 
    772835      IF (PRESENT(detect_missing_value_)) THEN 
    773         detect_missing_value__tmp = cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr) 
     836        detect_missing_value__tmp = cxios_is_defined_fieldgroup_detect_missing_value & 
     837      (fieldgroup_hdl%daddr) 
    774838        detect_missing_value_ = detect_missing_value__tmp 
    775839      ENDIF 
    776840 
    777841      IF (PRESENT(domain_ref_)) THEN 
    778         domain_ref__tmp = cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl%daddr) 
     842        domain_ref__tmp = cxios_is_defined_fieldgroup_domain_ref & 
     843      (fieldgroup_hdl%daddr) 
    779844        domain_ref_ = domain_ref__tmp 
    780845      ENDIF 
    781846 
    782847      IF (PRESENT(enabled_)) THEN 
    783         enabled__tmp = cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl%daddr) 
     848        enabled__tmp = cxios_is_defined_fieldgroup_enabled & 
     849      (fieldgroup_hdl%daddr) 
    784850        enabled_ = enabled__tmp 
    785851      ENDIF 
    786852 
    787853      IF (PRESENT(field_ref_)) THEN 
    788         field_ref__tmp = cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl%daddr) 
     854        field_ref__tmp = cxios_is_defined_fieldgroup_field_ref & 
     855      (fieldgroup_hdl%daddr) 
    789856        field_ref_ = field_ref__tmp 
    790857      ENDIF 
    791858 
    792859      IF (PRESENT(freq_offset_)) THEN 
    793         freq_offset__tmp = cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl%daddr) 
     860        freq_offset__tmp = cxios_is_defined_fieldgroup_freq_offset & 
     861      (fieldgroup_hdl%daddr) 
    794862        freq_offset_ = freq_offset__tmp 
    795863      ENDIF 
    796864 
    797865      IF (PRESENT(freq_op_)) THEN 
    798         freq_op__tmp = cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl%daddr) 
     866        freq_op__tmp = cxios_is_defined_fieldgroup_freq_op & 
     867      (fieldgroup_hdl%daddr) 
    799868        freq_op_ = freq_op__tmp 
    800869      ENDIF 
    801870 
    802871      IF (PRESENT(grid_path_)) THEN 
    803         grid_path__tmp = cxios_is_defined_fieldgroup_grid_path(fieldgroup_hdl%daddr) 
     872        grid_path__tmp = cxios_is_defined_fieldgroup_grid_path & 
     873      (fieldgroup_hdl%daddr) 
    804874        grid_path_ = grid_path__tmp 
    805875      ENDIF 
    806876 
    807877      IF (PRESENT(grid_ref_)) THEN 
    808         grid_ref__tmp = cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl%daddr) 
     878        grid_ref__tmp = cxios_is_defined_fieldgroup_grid_ref & 
     879      (fieldgroup_hdl%daddr) 
    809880        grid_ref_ = grid_ref__tmp 
    810881      ENDIF 
    811882 
    812883      IF (PRESENT(group_ref_)) THEN 
    813         group_ref__tmp = cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl%daddr) 
     884        group_ref__tmp = cxios_is_defined_fieldgroup_group_ref & 
     885      (fieldgroup_hdl%daddr) 
    814886        group_ref_ = group_ref__tmp 
    815887      ENDIF 
    816888 
    817889      IF (PRESENT(indexed_output_)) THEN 
    818         indexed_output__tmp = cxios_is_defined_fieldgroup_indexed_output(fieldgroup_hdl%daddr) 
     890        indexed_output__tmp = cxios_is_defined_fieldgroup_indexed_output & 
     891      (fieldgroup_hdl%daddr) 
    819892        indexed_output_ = indexed_output__tmp 
    820893      ENDIF 
    821894 
    822895      IF (PRESENT(level_)) THEN 
    823         level__tmp = cxios_is_defined_fieldgroup_level(fieldgroup_hdl%daddr) 
     896        level__tmp = cxios_is_defined_fieldgroup_level & 
     897      (fieldgroup_hdl%daddr) 
    824898        level_ = level__tmp 
    825899      ENDIF 
    826900 
    827901      IF (PRESENT(long_name_)) THEN 
    828         long_name__tmp = cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl%daddr) 
     902        long_name__tmp = cxios_is_defined_fieldgroup_long_name & 
     903      (fieldgroup_hdl%daddr) 
    829904        long_name_ = long_name__tmp 
    830905      ENDIF 
    831906 
    832907      IF (PRESENT(name_)) THEN 
    833         name__tmp = cxios_is_defined_fieldgroup_name(fieldgroup_hdl%daddr) 
     908        name__tmp = cxios_is_defined_fieldgroup_name & 
     909      (fieldgroup_hdl%daddr) 
    834910        name_ = name__tmp 
    835911      ENDIF 
    836912 
    837913      IF (PRESENT(operation_)) THEN 
    838         operation__tmp = cxios_is_defined_fieldgroup_operation(fieldgroup_hdl%daddr) 
     914        operation__tmp = cxios_is_defined_fieldgroup_operation & 
     915      (fieldgroup_hdl%daddr) 
    839916        operation_ = operation__tmp 
    840917      ENDIF 
    841918 
    842919      IF (PRESENT(prec_)) THEN 
    843         prec__tmp = cxios_is_defined_fieldgroup_prec(fieldgroup_hdl%daddr) 
     920        prec__tmp = cxios_is_defined_fieldgroup_prec & 
     921      (fieldgroup_hdl%daddr) 
    844922        prec_ = prec__tmp 
    845923      ENDIF 
    846924 
    847925      IF (PRESENT(read_access_)) THEN 
    848         read_access__tmp = cxios_is_defined_fieldgroup_read_access(fieldgroup_hdl%daddr) 
     926        read_access__tmp = cxios_is_defined_fieldgroup_read_access & 
     927      (fieldgroup_hdl%daddr) 
    849928        read_access_ = read_access__tmp 
    850929      ENDIF 
    851930 
    852931      IF (PRESENT(scalar_ref_)) THEN 
    853         scalar_ref__tmp = cxios_is_defined_fieldgroup_scalar_ref(fieldgroup_hdl%daddr) 
     932        scalar_ref__tmp = cxios_is_defined_fieldgroup_scalar_ref & 
     933      (fieldgroup_hdl%daddr) 
    854934        scalar_ref_ = scalar_ref__tmp 
    855935      ENDIF 
    856936 
    857937      IF (PRESENT(scale_factor_)) THEN 
    858         scale_factor__tmp = cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl%daddr) 
     938        scale_factor__tmp = cxios_is_defined_fieldgroup_scale_factor & 
     939      (fieldgroup_hdl%daddr) 
    859940        scale_factor_ = scale_factor__tmp 
    860941      ENDIF 
    861942 
    862943      IF (PRESENT(standard_name_)) THEN 
    863         standard_name__tmp = cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl%daddr) 
     944        standard_name__tmp = cxios_is_defined_fieldgroup_standard_name & 
     945      (fieldgroup_hdl%daddr) 
    864946        standard_name_ = standard_name__tmp 
    865947      ENDIF 
    866948 
    867949      IF (PRESENT(ts_enabled_)) THEN 
    868         ts_enabled__tmp = cxios_is_defined_fieldgroup_ts_enabled(fieldgroup_hdl%daddr) 
     950        ts_enabled__tmp = cxios_is_defined_fieldgroup_ts_enabled & 
     951      (fieldgroup_hdl%daddr) 
    869952        ts_enabled_ = ts_enabled__tmp 
    870953      ENDIF 
    871954 
    872955      IF (PRESENT(ts_split_freq_)) THEN 
    873         ts_split_freq__tmp = cxios_is_defined_fieldgroup_ts_split_freq(fieldgroup_hdl%daddr) 
     956        ts_split_freq__tmp = cxios_is_defined_fieldgroup_ts_split_freq & 
     957      (fieldgroup_hdl%daddr) 
    874958        ts_split_freq_ = ts_split_freq__tmp 
    875959      ENDIF 
    876960 
    877961      IF (PRESENT(unit_)) THEN 
    878         unit__tmp = cxios_is_defined_fieldgroup_unit(fieldgroup_hdl%daddr) 
     962        unit__tmp = cxios_is_defined_fieldgroup_unit & 
     963      (fieldgroup_hdl%daddr) 
    879964        unit_ = unit__tmp 
    880965      ENDIF 
    881966 
    882967      IF (PRESENT(valid_max_)) THEN 
    883         valid_max__tmp = cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl%daddr) 
     968        valid_max__tmp = cxios_is_defined_fieldgroup_valid_max & 
     969      (fieldgroup_hdl%daddr) 
    884970        valid_max_ = valid_max__tmp 
    885971      ENDIF 
    886972 
    887973      IF (PRESENT(valid_min_)) THEN 
    888         valid_min__tmp = cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl%daddr) 
     974        valid_min__tmp = cxios_is_defined_fieldgroup_valid_min & 
     975      (fieldgroup_hdl%daddr) 
    889976        valid_min_ = valid_min__tmp 
    890977      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/ifile_attr.F90

    r932 r966  
    4747      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    4848 
    49       CALL xios(get_file_handle)(file_id,file_hdl) 
     49      CALL xios(get_file_handle) & 
     50      (file_id,file_hdl) 
    5051      CALL xios(set_file_attr_hdl_)   & 
    5152      ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits  & 
    … …  
    136137      IF (PRESENT(append_)) THEN 
    137138        append__tmp = append_ 
    138         CALL cxios_set_file_append(file_hdl%daddr, append__tmp) 
     139        CALL cxios_set_file_append & 
     140      (file_hdl%daddr, append__tmp) 
    139141      ENDIF 
    140142 
    141143      IF (PRESENT(compression_level_)) THEN 
    142         CALL cxios_set_file_compression_level(file_hdl%daddr, compression_level_) 
     144        CALL cxios_set_file_compression_level & 
     145      (file_hdl%daddr, compression_level_) 
    143146      ENDIF 
    144147 
    145148      IF (PRESENT(convention_)) THEN 
    146         CALL cxios_set_file_convention(file_hdl%daddr, convention_, len(convention_)) 
     149        CALL cxios_set_file_convention & 
     150      (file_hdl%daddr, convention_, len(convention_)) 
    147151      ENDIF 
    148152 
    149153      IF (PRESENT(cyclic_)) THEN 
    150154        cyclic__tmp = cyclic_ 
    151         CALL cxios_set_file_cyclic(file_hdl%daddr, cyclic__tmp) 
     155        CALL cxios_set_file_cyclic & 
     156      (file_hdl%daddr, cyclic__tmp) 
    152157      ENDIF 
    153158 
    154159      IF (PRESENT(description_)) THEN 
    155         CALL cxios_set_file_description(file_hdl%daddr, description_, len(description_)) 
     160        CALL cxios_set_file_description & 
     161      (file_hdl%daddr, description_, len(description_)) 
    156162      ENDIF 
    157163 
    158164      IF (PRESENT(enabled_)) THEN 
    159165        enabled__tmp = enabled_ 
    160         CALL cxios_set_file_enabled(file_hdl%daddr, enabled__tmp) 
     166        CALL cxios_set_file_enabled & 
     167      (file_hdl%daddr, enabled__tmp) 
    161168      ENDIF 
    162169 
    163170      IF (PRESENT(format_)) THEN 
    164         CALL cxios_set_file_format(file_hdl%daddr, format_, len(format_)) 
     171        CALL cxios_set_file_format & 
     172      (file_hdl%daddr, format_, len(format_)) 
    165173      ENDIF 
    166174 
    167175      IF (PRESENT(min_digits_)) THEN 
    168         CALL cxios_set_file_min_digits(file_hdl%daddr, min_digits_) 
     176        CALL cxios_set_file_min_digits & 
     177      (file_hdl%daddr, min_digits_) 
    169178      ENDIF 
    170179 
    171180      IF (PRESENT(mode_)) THEN 
    172         CALL cxios_set_file_mode(file_hdl%daddr, mode_, len(mode_)) 
     181        CALL cxios_set_file_mode & 
     182      (file_hdl%daddr, mode_, len(mode_)) 
    173183      ENDIF 
    174184 
    175185      IF (PRESENT(name_)) THEN 
    176         CALL cxios_set_file_name(file_hdl%daddr, name_, len(name_)) 
     186        CALL cxios_set_file_name & 
     187      (file_hdl%daddr, name_, len(name_)) 
    177188      ENDIF 
    178189 
    179190      IF (PRESENT(name_suffix_)) THEN 
    180         CALL cxios_set_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_)) 
     191        CALL cxios_set_file_name_suffix & 
     192      (file_hdl%daddr, name_suffix_, len(name_suffix_)) 
    181193      ENDIF 
    182194 
    183195      IF (PRESENT(output_freq_)) THEN 
    184         CALL cxios_set_file_output_freq(file_hdl%daddr, output_freq_) 
     196        CALL cxios_set_file_output_freq & 
     197      (file_hdl%daddr, output_freq_) 
    185198      ENDIF 
    186199 
    187200      IF (PRESENT(output_level_)) THEN 
    188         CALL cxios_set_file_output_level(file_hdl%daddr, output_level_) 
     201        CALL cxios_set_file_output_level & 
     202      (file_hdl%daddr, output_level_) 
    189203      ENDIF 
    190204 
    191205      IF (PRESENT(par_access_)) THEN 
    192         CALL cxios_set_file_par_access(file_hdl%daddr, par_access_, len(par_access_)) 
     206        CALL cxios_set_file_par_access & 
     207      (file_hdl%daddr, par_access_, len(par_access_)) 
    193208      ENDIF 
    194209 
    195210      IF (PRESENT(record_offset_)) THEN 
    196         CALL cxios_set_file_record_offset(file_hdl%daddr, record_offset_) 
     211        CALL cxios_set_file_record_offset & 
     212      (file_hdl%daddr, record_offset_) 
    197213      ENDIF 
    198214 
    199215      IF (PRESENT(split_freq_)) THEN 
    200         CALL cxios_set_file_split_freq(file_hdl%daddr, split_freq_) 
     216        CALL cxios_set_file_split_freq & 
     217      (file_hdl%daddr, split_freq_) 
    201218      ENDIF 
    202219 
    203220      IF (PRESENT(split_freq_format_)) THEN 
    204         CALL cxios_set_file_split_freq_format(file_hdl%daddr, split_freq_format_, len(split_freq_format_)) 
     221        CALL cxios_set_file_split_freq_format & 
     222      (file_hdl%daddr, split_freq_format_, len(split_freq_format_)) 
    205223      ENDIF 
    206224 
    207225      IF (PRESENT(sync_freq_)) THEN 
    208         CALL cxios_set_file_sync_freq(file_hdl%daddr, sync_freq_) 
     226        CALL cxios_set_file_sync_freq & 
     227      (file_hdl%daddr, sync_freq_) 
    209228      ENDIF 
    210229 
    211230      IF (PRESENT(time_counter_)) THEN 
    212         CALL cxios_set_file_time_counter(file_hdl%daddr, time_counter_, len(time_counter_)) 
     231        CALL cxios_set_file_time_counter & 
     232      (file_hdl%daddr, time_counter_, len(time_counter_)) 
    213233      ENDIF 
    214234 
    215235      IF (PRESENT(time_counter_name_)) THEN 
    216         CALL cxios_set_file_time_counter_name(file_hdl%daddr, time_counter_name_, len(time_counter_name_)) 
     236        CALL cxios_set_file_time_counter_name & 
     237      (file_hdl%daddr, time_counter_name_, len(time_counter_name_)) 
    217238      ENDIF 
    218239 
    219240      IF (PRESENT(timeseries_)) THEN 
    220         CALL cxios_set_file_timeseries(file_hdl%daddr, timeseries_, len(timeseries_)) 
     241        CALL cxios_set_file_timeseries & 
     242      (file_hdl%daddr, timeseries_, len(timeseries_)) 
    221243      ENDIF 
    222244 
    223245      IF (PRESENT(ts_prefix_)) THEN 
    224         CALL cxios_set_file_ts_prefix(file_hdl%daddr, ts_prefix_, len(ts_prefix_)) 
     246        CALL cxios_set_file_ts_prefix & 
     247      (file_hdl%daddr, ts_prefix_, len(ts_prefix_)) 
    225248      ENDIF 
    226249 
    227250      IF (PRESENT(type_)) THEN 
    228         CALL cxios_set_file_type(file_hdl%daddr, type_, len(type_)) 
     251        CALL cxios_set_file_type & 
     252      (file_hdl%daddr, type_, len(type_)) 
    229253      ENDIF 
    230254 
    … …  
    267291      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    268292 
    269       CALL xios(get_file_handle)(file_id,file_hdl) 
     293      CALL xios(get_file_handle) & 
     294      (file_id,file_hdl) 
    270295      CALL xios(get_file_attr_hdl_)   & 
    271296      ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits  & 
    … …  
    355380 
    356381      IF (PRESENT(append_)) THEN 
    357         CALL cxios_get_file_append(file_hdl%daddr, append__tmp) 
     382        CALL cxios_get_file_append & 
     383      (file_hdl%daddr, append__tmp) 
    358384        append_ = append__tmp 
    359385      ENDIF 
    360386 
    361387      IF (PRESENT(compression_level_)) THEN 
    362         CALL cxios_get_file_compression_level(file_hdl%daddr, compression_level_) 
     388        CALL cxios_get_file_compression_level & 
     389      (file_hdl%daddr, compression_level_) 
    363390      ENDIF 
    364391 
    365392      IF (PRESENT(convention_)) THEN 
    366         CALL cxios_get_file_convention(file_hdl%daddr, convention_, len(convention_)) 
     393        CALL cxios_get_file_convention & 
     394      (file_hdl%daddr, convention_, len(convention_)) 
    367395      ENDIF 
    368396 
    369397      IF (PRESENT(cyclic_)) THEN 
    370         CALL cxios_get_file_cyclic(file_hdl%daddr, cyclic__tmp) 
     398        CALL cxios_get_file_cyclic & 
     399      (file_hdl%daddr, cyclic__tmp) 
    371400        cyclic_ = cyclic__tmp 
    372401      ENDIF 
    373402 
    374403      IF (PRESENT(description_)) THEN 
    375         CALL cxios_get_file_description(file_hdl%daddr, description_, len(description_)) 
     404        CALL cxios_get_file_description & 
     405      (file_hdl%daddr, description_, len(description_)) 
    376406      ENDIF 
    377407 
    378408      IF (PRESENT(enabled_)) THEN 
    379         CALL cxios_get_file_enabled(file_hdl%daddr, enabled__tmp) 
     409        CALL cxios_get_file_enabled & 
     410      (file_hdl%daddr, enabled__tmp) 
    380411        enabled_ = enabled__tmp 
    381412      ENDIF 
    382413 
    383414      IF (PRESENT(format_)) THEN 
    384         CALL cxios_get_file_format(file_hdl%daddr, format_, len(format_)) 
     415        CALL cxios_get_file_format & 
     416      (file_hdl%daddr, format_, len(format_)) 
    385417      ENDIF 
    386418 
    387419      IF (PRESENT(min_digits_)) THEN 
    388         CALL cxios_get_file_min_digits(file_hdl%daddr, min_digits_) 
     420        CALL cxios_get_file_min_digits & 
     421      (file_hdl%daddr, min_digits_) 
    389422      ENDIF 
    390423 
    391424      IF (PRESENT(mode_)) THEN 
    392         CALL cxios_get_file_mode(file_hdl%daddr, mode_, len(mode_)) 
     425        CALL cxios_get_file_mode & 
     426      (file_hdl%daddr, mode_, len(mode_)) 
    393427      ENDIF 
    394428 
    395429      IF (PRESENT(name_)) THEN 
    396         CALL cxios_get_file_name(file_hdl%daddr, name_, len(name_)) 
     430        CALL cxios_get_file_name & 
     431      (file_hdl%daddr, name_, len(name_)) 
    397432      ENDIF 
    398433 
    399434      IF (PRESENT(name_suffix_)) THEN 
    400         CALL cxios_get_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_)) 
     435        CALL cxios_get_file_name_suffix & 
     436      (file_hdl%daddr, name_suffix_, len(name_suffix_)) 
    401437      ENDIF 
    402438 
    403439      IF (PRESENT(output_freq_)) THEN 
    404         CALL cxios_get_file_output_freq(file_hdl%daddr, output_freq_) 
     440        CALL cxios_get_file_output_freq & 
     441      (file_hdl%daddr, output_freq_) 
    405442      ENDIF 
    406443 
    407444      IF (PRESENT(output_level_)) THEN 
    408         CALL cxios_get_file_output_level(file_hdl%daddr, output_level_) 
     445        CALL cxios_get_file_output_level & 
     446      (file_hdl%daddr, output_level_) 
    409447      ENDIF 
    410448 
    411449      IF (PRESENT(par_access_)) THEN 
    412         CALL cxios_get_file_par_access(file_hdl%daddr, par_access_, len(par_access_)) 
     450        CALL cxios_get_file_par_access & 
     451      (file_hdl%daddr, par_access_, len(par_access_)) 
    413452      ENDIF 
    414453 
    415454      IF (PRESENT(record_offset_)) THEN 
    416         CALL cxios_get_file_record_offset(file_hdl%daddr, record_offset_) 
     455        CALL cxios_get_file_record_offset & 
     456      (file_hdl%daddr, record_offset_) 
    417457      ENDIF 
    418458 
    419459      IF (PRESENT(split_freq_)) THEN 
    420         CALL cxios_get_file_split_freq(file_hdl%daddr, split_freq_) 
     460        CALL cxios_get_file_split_freq & 
     461      (file_hdl%daddr, split_freq_) 
    421462      ENDIF 
    422463 
    423464      IF (PRESENT(split_freq_format_)) THEN 
    424         CALL cxios_get_file_split_freq_format(file_hdl%daddr, split_freq_format_, len(split_freq_format_)) 
     465        CALL cxios_get_file_split_freq_format & 
     466      (file_hdl%daddr, split_freq_format_, len(split_freq_format_)) 
    425467      ENDIF 
    426468 
    427469      IF (PRESENT(sync_freq_)) THEN 
    428         CALL cxios_get_file_sync_freq(file_hdl%daddr, sync_freq_) 
     470        CALL cxios_get_file_sync_freq & 
     471      (file_hdl%daddr, sync_freq_) 
    429472      ENDIF 
    430473 
    431474      IF (PRESENT(time_counter_)) THEN 
    432         CALL cxios_get_file_time_counter(file_hdl%daddr, time_counter_, len(time_counter_)) 
     475        CALL cxios_get_file_time_counter & 
     476      (file_hdl%daddr, time_counter_, len(time_counter_)) 
    433477      ENDIF 
    434478 
    435479      IF (PRESENT(time_counter_name_)) THEN 
    436         CALL cxios_get_file_time_counter_name(file_hdl%daddr, time_counter_name_, len(time_counter_name_)) 
     480        CALL cxios_get_file_time_counter_name & 
     481      (file_hdl%daddr, time_counter_name_, len(time_counter_name_)) 
    437482      ENDIF 
    438483 
    439484      IF (PRESENT(timeseries_)) THEN 
    440         CALL cxios_get_file_timeseries(file_hdl%daddr, timeseries_, len(timeseries_)) 
     485        CALL cxios_get_file_timeseries & 
     486      (file_hdl%daddr, timeseries_, len(timeseries_)) 
    441487      ENDIF 
    442488 
    443489      IF (PRESENT(ts_prefix_)) THEN 
    444         CALL cxios_get_file_ts_prefix(file_hdl%daddr, ts_prefix_, len(ts_prefix_)) 
     490        CALL cxios_get_file_ts_prefix & 
     491      (file_hdl%daddr, ts_prefix_, len(ts_prefix_)) 
    445492      ENDIF 
    446493 
    447494      IF (PRESENT(type_)) THEN 
    448         CALL cxios_get_file_type(file_hdl%daddr, type_, len(type_)) 
     495        CALL cxios_get_file_type & 
     496      (file_hdl%daddr, type_, len(type_)) 
    449497      ENDIF 
    450498 
    … …  
    507555      LOGICAL(KIND=C_BOOL) :: type_tmp 
    508556 
    509       CALL xios(get_file_handle)(file_id,file_hdl) 
     557      CALL xios(get_file_handle) & 
     558      (file_id,file_hdl) 
    510559      CALL xios(is_defined_file_attr_hdl_)   & 
    511560      ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits  & 
    … …  
    635684 
    636685      IF (PRESENT(append_)) THEN 
    637         append__tmp = cxios_is_defined_file_append(file_hdl%daddr) 
     686        append__tmp = cxios_is_defined_file_append & 
     687      (file_hdl%daddr) 
    638688        append_ = append__tmp 
    639689      ENDIF 
    640690 
    641691      IF (PRESENT(compression_level_)) THEN 
    642         compression_level__tmp = cxios_is_defined_file_compression_level(file_hdl%daddr) 
     692        compression_level__tmp = cxios_is_defined_file_compression_level & 
     693      (file_hdl%daddr) 
    643694        compression_level_ = compression_level__tmp 
    644695      ENDIF 
    645696 
    646697      IF (PRESENT(convention_)) THEN 
    647         convention__tmp = cxios_is_defined_file_convention(file_hdl%daddr) 
     698        convention__tmp = cxios_is_defined_file_convention & 
     699      (file_hdl%daddr) 
    648700        convention_ = convention__tmp 
    649701      ENDIF 
    650702 
    651703      IF (PRESENT(cyclic_)) THEN 
    652         cyclic__tmp = cxios_is_defined_file_cyclic(file_hdl%daddr) 
     704        cyclic__tmp = cxios_is_defined_file_cyclic & 
     705      (file_hdl%daddr) 
    653706        cyclic_ = cyclic__tmp 
    654707      ENDIF 
    655708 
    656709      IF (PRESENT(description_)) THEN 
    657         description__tmp = cxios_is_defined_file_description(file_hdl%daddr) 
     710        description__tmp = cxios_is_defined_file_description & 
     711      (file_hdl%daddr) 
    658712        description_ = description__tmp 
    659713      ENDIF 
    660714 
    661715      IF (PRESENT(enabled_)) THEN 
    662         enabled__tmp = cxios_is_defined_file_enabled(file_hdl%daddr) 
     716        enabled__tmp = cxios_is_defined_file_enabled & 
     717      (file_hdl%daddr) 
    663718        enabled_ = enabled__tmp 
    664719      ENDIF 
    665720 
    666721      IF (PRESENT(format_)) THEN 
    667         format__tmp = cxios_is_defined_file_format(file_hdl%daddr) 
     722        format__tmp = cxios_is_defined_file_format & 
     723      (file_hdl%daddr) 
    668724        format_ = format__tmp 
    669725      ENDIF 
    670726 
    671727      IF (PRESENT(min_digits_)) THEN 
    672         min_digits__tmp = cxios_is_defined_file_min_digits(file_hdl%daddr) 
     728        min_digits__tmp = cxios_is_defined_file_min_digits & 
     729      (file_hdl%daddr) 
    673730        min_digits_ = min_digits__tmp 
    674731      ENDIF 
    675732 
    676733      IF (PRESENT(mode_)) THEN 
    677         mode__tmp = cxios_is_defined_file_mode(file_hdl%daddr) 
     734        mode__tmp = cxios_is_defined_file_mode & 
     735      (file_hdl%daddr) 
    678736        mode_ = mode__tmp 
    679737      ENDIF 
    680738 
    681739      IF (PRESENT(name_)) THEN 
    682         name__tmp = cxios_is_defined_file_name(file_hdl%daddr) 
     740        name__tmp = cxios_is_defined_file_name & 
     741      (file_hdl%daddr) 
    683742        name_ = name__tmp 
    684743      ENDIF 
    685744 
    686745      IF (PRESENT(name_suffix_)) THEN 
    687         name_suffix__tmp = cxios_is_defined_file_name_suffix(file_hdl%daddr) 
     746        name_suffix__tmp = cxios_is_defined_file_name_suffix & 
     747      (file_hdl%daddr) 
    688748        name_suffix_ = name_suffix__tmp 
    689749      ENDIF 
    690750 
    691751      IF (PRESENT(output_freq_)) THEN 
    692         output_freq__tmp = cxios_is_defined_file_output_freq(file_hdl%daddr) 
     752        output_freq__tmp = cxios_is_defined_file_output_freq & 
     753      (file_hdl%daddr) 
    693754        output_freq_ = output_freq__tmp 
    694755      ENDIF 
    695756 
    696757      IF (PRESENT(output_level_)) THEN 
    697         output_level__tmp = cxios_is_defined_file_output_level(file_hdl%daddr) 
     758        output_level__tmp = cxios_is_defined_file_output_level & 
     759      (file_hdl%daddr) 
    698760        output_level_ = output_level__tmp 
    699761      ENDIF 
    700762 
    701763      IF (PRESENT(par_access_)) THEN 
    702         par_access__tmp = cxios_is_defined_file_par_access(file_hdl%daddr) 
     764        par_access__tmp = cxios_is_defined_file_par_access & 
     765      (file_hdl%daddr) 
    703766        par_access_ = par_access__tmp 
    704767      ENDIF 
    705768 
    706769      IF (PRESENT(record_offset_)) THEN 
    707         record_offset__tmp = cxios_is_defined_file_record_offset(file_hdl%daddr) 
     770        record_offset__tmp = cxios_is_defined_file_record_offset & 
     771      (file_hdl%daddr) 
    708772        record_offset_ = record_offset__tmp 
    709773      ENDIF 
    710774 
    711775      IF (PRESENT(split_freq_)) THEN 
    712         split_freq__tmp = cxios_is_defined_file_split_freq(file_hdl%daddr) 
     776        split_freq__tmp = cxios_is_defined_file_split_freq & 
     777      (file_hdl%daddr) 
    713778        split_freq_ = split_freq__tmp 
    714779      ENDIF 
    715780 
    716781      IF (PRESENT(split_freq_format_)) THEN 
    717         split_freq_format__tmp = cxios_is_defined_file_split_freq_format(file_hdl%daddr) 
     782        split_freq_format__tmp = cxios_is_defined_file_split_freq_format & 
     783      (file_hdl%daddr) 
    718784        split_freq_format_ = split_freq_format__tmp 
    719785      ENDIF 
    720786 
    721787      IF (PRESENT(sync_freq_)) THEN 
    722         sync_freq__tmp = cxios_is_defined_file_sync_freq(file_hdl%daddr) 
     788        sync_freq__tmp = cxios_is_defined_file_sync_freq & 
     789      (file_hdl%daddr) 
    723790        sync_freq_ = sync_freq__tmp 
    724791      ENDIF 
    725792 
    726793      IF (PRESENT(time_counter_)) THEN 
    727         time_counter__tmp = cxios_is_defined_file_time_counter(file_hdl%daddr) 
     794        time_counter__tmp = cxios_is_defined_file_time_counter & 
     795      (file_hdl%daddr) 
    728796        time_counter_ = time_counter__tmp 
    729797      ENDIF 
    730798 
    731799      IF (PRESENT(time_counter_name_)) THEN 
    732         time_counter_name__tmp = cxios_is_defined_file_time_counter_name(file_hdl%daddr) 
     800        time_counter_name__tmp = cxios_is_defined_file_time_counter_name & 
     801      (file_hdl%daddr) 
    733802        time_counter_name_ = time_counter_name__tmp 
    734803      ENDIF 
    735804 
    736805      IF (PRESENT(timeseries_)) THEN 
    737         timeseries__tmp = cxios_is_defined_file_timeseries(file_hdl%daddr) 
     806        timeseries__tmp = cxios_is_defined_file_timeseries & 
     807      (file_hdl%daddr) 
    738808        timeseries_ = timeseries__tmp 
    739809      ENDIF 
    740810 
    741811      IF (PRESENT(ts_prefix_)) THEN 
    742         ts_prefix__tmp = cxios_is_defined_file_ts_prefix(file_hdl%daddr) 
     812        ts_prefix__tmp = cxios_is_defined_file_ts_prefix & 
     813      (file_hdl%daddr) 
    743814        ts_prefix_ = ts_prefix__tmp 
    744815      ENDIF 
    745816 
    746817      IF (PRESENT(type_)) THEN 
    747         type__tmp = cxios_is_defined_file_type(file_hdl%daddr) 
     818        type__tmp = cxios_is_defined_file_type & 
     819      (file_hdl%daddr) 
    748820        type_ = type__tmp 
    749821      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/ifilegroup_attr.F90

    r932 r966  
    4848      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    4949 
    50       CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 
     50      CALL xios(get_filegroup_handle) & 
     51      (filegroup_id,filegroup_hdl) 
    5152      CALL xios(set_filegroup_attr_hdl_)   & 
    5253      ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  & 
    … …  
    139140      IF (PRESENT(append_)) THEN 
    140141        append__tmp = append_ 
    141         CALL cxios_set_filegroup_append(filegroup_hdl%daddr, append__tmp) 
     142        CALL cxios_set_filegroup_append & 
     143      (filegroup_hdl%daddr, append__tmp) 
    142144      ENDIF 
    143145 
    144146      IF (PRESENT(compression_level_)) THEN 
    145         CALL cxios_set_filegroup_compression_level(filegroup_hdl%daddr, compression_level_) 
     147        CALL cxios_set_filegroup_compression_level & 
     148      (filegroup_hdl%daddr, compression_level_) 
    146149      ENDIF 
    147150 
    148151      IF (PRESENT(convention_)) THEN 
    149         CALL cxios_set_filegroup_convention(filegroup_hdl%daddr, convention_, len(convention_)) 
     152        CALL cxios_set_filegroup_convention & 
     153      (filegroup_hdl%daddr, convention_, len(convention_)) 
    150154      ENDIF 
    151155 
    152156      IF (PRESENT(cyclic_)) THEN 
    153157        cyclic__tmp = cyclic_ 
    154         CALL cxios_set_filegroup_cyclic(filegroup_hdl%daddr, cyclic__tmp) 
     158        CALL cxios_set_filegroup_cyclic & 
     159      (filegroup_hdl%daddr, cyclic__tmp) 
    155160      ENDIF 
    156161 
    157162      IF (PRESENT(description_)) THEN 
    158         CALL cxios_set_filegroup_description(filegroup_hdl%daddr, description_, len(description_)) 
     163        CALL cxios_set_filegroup_description & 
     164      (filegroup_hdl%daddr, description_, len(description_)) 
    159165      ENDIF 
    160166 
    161167      IF (PRESENT(enabled_)) THEN 
    162168        enabled__tmp = enabled_ 
    163         CALL cxios_set_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp) 
     169        CALL cxios_set_filegroup_enabled & 
     170      (filegroup_hdl%daddr, enabled__tmp) 
    164171      ENDIF 
    165172 
    166173      IF (PRESENT(format_)) THEN 
    167         CALL cxios_set_filegroup_format(filegroup_hdl%daddr, format_, len(format_)) 
     174        CALL cxios_set_filegroup_format & 
     175      (filegroup_hdl%daddr, format_, len(format_)) 
    168176      ENDIF 
    169177 
    170178      IF (PRESENT(group_ref_)) THEN 
    171         CALL cxios_set_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_)) 
     179        CALL cxios_set_filegroup_group_ref & 
     180      (filegroup_hdl%daddr, group_ref_, len(group_ref_)) 
    172181      ENDIF 
    173182 
    174183      IF (PRESENT(min_digits_)) THEN 
    175         CALL cxios_set_filegroup_min_digits(filegroup_hdl%daddr, min_digits_) 
     184        CALL cxios_set_filegroup_min_digits & 
     185      (filegroup_hdl%daddr, min_digits_) 
    176186      ENDIF 
    177187 
    178188      IF (PRESENT(mode_)) THEN 
    179         CALL cxios_set_filegroup_mode(filegroup_hdl%daddr, mode_, len(mode_)) 
     189        CALL cxios_set_filegroup_mode & 
     190      (filegroup_hdl%daddr, mode_, len(mode_)) 
    180191      ENDIF 
    181192 
    182193      IF (PRESENT(name_)) THEN 
    183         CALL cxios_set_filegroup_name(filegroup_hdl%daddr, name_, len(name_)) 
     194        CALL cxios_set_filegroup_name & 
     195      (filegroup_hdl%daddr, name_, len(name_)) 
    184196      ENDIF 
    185197 
    186198      IF (PRESENT(name_suffix_)) THEN 
    187         CALL cxios_set_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_)) 
     199        CALL cxios_set_filegroup_name_suffix & 
     200      (filegroup_hdl%daddr, name_suffix_, len(name_suffix_)) 
    188201      ENDIF 
    189202 
    190203      IF (PRESENT(output_freq_)) THEN 
    191         CALL cxios_set_filegroup_output_freq(filegroup_hdl%daddr, output_freq_) 
     204        CALL cxios_set_filegroup_output_freq & 
     205      (filegroup_hdl%daddr, output_freq_) 
    192206      ENDIF 
    193207 
    194208      IF (PRESENT(output_level_)) THEN 
    195         CALL cxios_set_filegroup_output_level(filegroup_hdl%daddr, output_level_) 
     209        CALL cxios_set_filegroup_output_level & 
     210      (filegroup_hdl%daddr, output_level_) 
    196211      ENDIF 
    197212 
    198213      IF (PRESENT(par_access_)) THEN 
    199         CALL cxios_set_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_)) 
     214        CALL cxios_set_filegroup_par_access & 
     215      (filegroup_hdl%daddr, par_access_, len(par_access_)) 
    200216      ENDIF 
    201217 
    202218      IF (PRESENT(record_offset_)) THEN 
    203         CALL cxios_set_filegroup_record_offset(filegroup_hdl%daddr, record_offset_) 
     219        CALL cxios_set_filegroup_record_offset & 
     220      (filegroup_hdl%daddr, record_offset_) 
    204221      ENDIF 
    205222 
    206223      IF (PRESENT(split_freq_)) THEN 
    207         CALL cxios_set_filegroup_split_freq(filegroup_hdl%daddr, split_freq_) 
     224        CALL cxios_set_filegroup_split_freq & 
     225      (filegroup_hdl%daddr, split_freq_) 
    208226      ENDIF 
    209227 
    210228      IF (PRESENT(split_freq_format_)) THEN 
    211         CALL cxios_set_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_)) 
     229        CALL cxios_set_filegroup_split_freq_format & 
     230      (filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_)) 
    212231      ENDIF 
    213232 
    214233      IF (PRESENT(sync_freq_)) THEN 
    215         CALL cxios_set_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_) 
     234        CALL cxios_set_filegroup_sync_freq & 
     235      (filegroup_hdl%daddr, sync_freq_) 
    216236      ENDIF 
    217237 
    218238      IF (PRESENT(time_counter_)) THEN 
    219         CALL cxios_set_filegroup_time_counter(filegroup_hdl%daddr, time_counter_, len(time_counter_)) 
     239        CALL cxios_set_filegroup_time_counter & 
     240      (filegroup_hdl%daddr, time_counter_, len(time_counter_)) 
    220241      ENDIF 
    221242 
    222243      IF (PRESENT(time_counter_name_)) THEN 
    223         CALL cxios_set_filegroup_time_counter_name(filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_)) 
     244        CALL cxios_set_filegroup_time_counter_name & 
     245      (filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_)) 
    224246      ENDIF 
    225247 
    226248      IF (PRESENT(timeseries_)) THEN 
    227         CALL cxios_set_filegroup_timeseries(filegroup_hdl%daddr, timeseries_, len(timeseries_)) 
     249        CALL cxios_set_filegroup_timeseries & 
     250      (filegroup_hdl%daddr, timeseries_, len(timeseries_)) 
    228251      ENDIF 
    229252 
    230253      IF (PRESENT(ts_prefix_)) THEN 
    231         CALL cxios_set_filegroup_ts_prefix(filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_)) 
     254        CALL cxios_set_filegroup_ts_prefix & 
     255      (filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_)) 
    232256      ENDIF 
    233257 
    234258      IF (PRESENT(type_)) THEN 
    235         CALL cxios_set_filegroup_type(filegroup_hdl%daddr, type_, len(type_)) 
     259        CALL cxios_set_filegroup_type & 
     260      (filegroup_hdl%daddr, type_, len(type_)) 
    236261      ENDIF 
    237262 
    … …  
    275300      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    276301 
    277       CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 
     302      CALL xios(get_filegroup_handle) & 
     303      (filegroup_id,filegroup_hdl) 
    278304      CALL xios(get_filegroup_attr_hdl_)   & 
    279305      ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  & 
    … …  
    365391 
    366392      IF (PRESENT(append_)) THEN 
    367         CALL cxios_get_filegroup_append(filegroup_hdl%daddr, append__tmp) 
     393        CALL cxios_get_filegroup_append & 
     394      (filegroup_hdl%daddr, append__tmp) 
    368395        append_ = append__tmp 
    369396      ENDIF 
    370397 
    371398      IF (PRESENT(compression_level_)) THEN 
    372         CALL cxios_get_filegroup_compression_level(filegroup_hdl%daddr, compression_level_) 
     399        CALL cxios_get_filegroup_compression_level & 
     400      (filegroup_hdl%daddr, compression_level_) 
    373401      ENDIF 
    374402 
    375403      IF (PRESENT(convention_)) THEN 
    376         CALL cxios_get_filegroup_convention(filegroup_hdl%daddr, convention_, len(convention_)) 
     404        CALL cxios_get_filegroup_convention & 
     405      (filegroup_hdl%daddr, convention_, len(convention_)) 
    377406      ENDIF 
    378407 
    379408      IF (PRESENT(cyclic_)) THEN 
    380         CALL cxios_get_filegroup_cyclic(filegroup_hdl%daddr, cyclic__tmp) 
     409        CALL cxios_get_filegroup_cyclic & 
     410      (filegroup_hdl%daddr, cyclic__tmp) 
    381411        cyclic_ = cyclic__tmp 
    382412      ENDIF 
    383413 
    384414      IF (PRESENT(description_)) THEN 
    385         CALL cxios_get_filegroup_description(filegroup_hdl%daddr, description_, len(description_)) 
     415        CALL cxios_get_filegroup_description & 
     416      (filegroup_hdl%daddr, description_, len(description_)) 
    386417      ENDIF 
    387418 
    388419      IF (PRESENT(enabled_)) THEN 
    389         CALL cxios_get_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp) 
     420        CALL cxios_get_filegroup_enabled & 
     421      (filegroup_hdl%daddr, enabled__tmp) 
    390422        enabled_ = enabled__tmp 
    391423      ENDIF 
    392424 
    393425      IF (PRESENT(format_)) THEN 
    394         CALL cxios_get_filegroup_format(filegroup_hdl%daddr, format_, len(format_)) 
     426        CALL cxios_get_filegroup_format & 
     427      (filegroup_hdl%daddr, format_, len(format_)) 
    395428      ENDIF 
    396429 
    397430      IF (PRESENT(group_ref_)) THEN 
    398         CALL cxios_get_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_)) 
     431        CALL cxios_get_filegroup_group_ref & 
     432      (filegroup_hdl%daddr, group_ref_, len(group_ref_)) 
    399433      ENDIF 
    400434 
    401435      IF (PRESENT(min_digits_)) THEN 
    402         CALL cxios_get_filegroup_min_digits(filegroup_hdl%daddr, min_digits_) 
     436        CALL cxios_get_filegroup_min_digits & 
     437      (filegroup_hdl%daddr, min_digits_) 
    403438      ENDIF 
    404439 
    405440      IF (PRESENT(mode_)) THEN 
    406         CALL cxios_get_filegroup_mode(filegroup_hdl%daddr, mode_, len(mode_)) 
     441        CALL cxios_get_filegroup_mode & 
     442      (filegroup_hdl%daddr, mode_, len(mode_)) 
    407443      ENDIF 
    408444 
    409445      IF (PRESENT(name_)) THEN 
    410         CALL cxios_get_filegroup_name(filegroup_hdl%daddr, name_, len(name_)) 
     446        CALL cxios_get_filegroup_name & 
     447      (filegroup_hdl%daddr, name_, len(name_)) 
    411448      ENDIF 
    412449 
    413450      IF (PRESENT(name_suffix_)) THEN 
    414         CALL cxios_get_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_)) 
     451        CALL cxios_get_filegroup_name_suffix & 
     452      (filegroup_hdl%daddr, name_suffix_, len(name_suffix_)) 
    415453      ENDIF 
    416454 
    417455      IF (PRESENT(output_freq_)) THEN 
    418         CALL cxios_get_filegroup_output_freq(filegroup_hdl%daddr, output_freq_) 
     456        CALL cxios_get_filegroup_output_freq & 
     457      (filegroup_hdl%daddr, output_freq_) 
    419458      ENDIF 
    420459 
    421460      IF (PRESENT(output_level_)) THEN 
    422         CALL cxios_get_filegroup_output_level(filegroup_hdl%daddr, output_level_) 
     461        CALL cxios_get_filegroup_output_level & 
     462      (filegroup_hdl%daddr, output_level_) 
    423463      ENDIF 
    424464 
    425465      IF (PRESENT(par_access_)) THEN 
    426         CALL cxios_get_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_)) 
     466        CALL cxios_get_filegroup_par_access & 
     467      (filegroup_hdl%daddr, par_access_, len(par_access_)) 
    427468      ENDIF 
    428469 
    429470      IF (PRESENT(record_offset_)) THEN 
    430         CALL cxios_get_filegroup_record_offset(filegroup_hdl%daddr, record_offset_) 
     471        CALL cxios_get_filegroup_record_offset & 
     472      (filegroup_hdl%daddr, record_offset_) 
    431473      ENDIF 
    432474 
    433475      IF (PRESENT(split_freq_)) THEN 
    434         CALL cxios_get_filegroup_split_freq(filegroup_hdl%daddr, split_freq_) 
     476        CALL cxios_get_filegroup_split_freq & 
     477      (filegroup_hdl%daddr, split_freq_) 
    435478      ENDIF 
    436479 
    437480      IF (PRESENT(split_freq_format_)) THEN 
    438         CALL cxios_get_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_)) 
     481        CALL cxios_get_filegroup_split_freq_format & 
     482      (filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_)) 
    439483      ENDIF 
    440484 
    441485      IF (PRESENT(sync_freq_)) THEN 
    442         CALL cxios_get_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_) 
     486        CALL cxios_get_filegroup_sync_freq & 
     487      (filegroup_hdl%daddr, sync_freq_) 
    443488      ENDIF 
    444489 
    445490      IF (PRESENT(time_counter_)) THEN 
    446         CALL cxios_get_filegroup_time_counter(filegroup_hdl%daddr, time_counter_, len(time_counter_)) 
     491        CALL cxios_get_filegroup_time_counter & 
     492      (filegroup_hdl%daddr, time_counter_, len(time_counter_)) 
    447493      ENDIF 
    448494 
    449495      IF (PRESENT(time_counter_name_)) THEN 
    450         CALL cxios_get_filegroup_time_counter_name(filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_)) 
     496        CALL cxios_get_filegroup_time_counter_name & 
     497      (filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_)) 
    451498      ENDIF 
    452499 
    453500      IF (PRESENT(timeseries_)) THEN 
    454         CALL cxios_get_filegroup_timeseries(filegroup_hdl%daddr, timeseries_, len(timeseries_)) 
     501        CALL cxios_get_filegroup_timeseries & 
     502      (filegroup_hdl%daddr, timeseries_, len(timeseries_)) 
    455503      ENDIF 
    456504 
    457505      IF (PRESENT(ts_prefix_)) THEN 
    458         CALL cxios_get_filegroup_ts_prefix(filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_)) 
     506        CALL cxios_get_filegroup_ts_prefix & 
     507      (filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_)) 
    459508      ENDIF 
    460509 
    461510      IF (PRESENT(type_)) THEN 
    462         CALL cxios_get_filegroup_type(filegroup_hdl%daddr, type_, len(type_)) 
     511        CALL cxios_get_filegroup_type & 
     512      (filegroup_hdl%daddr, type_, len(type_)) 
    463513      ENDIF 
    464514 
    … …  
    523573      LOGICAL(KIND=C_BOOL) :: type_tmp 
    524574 
    525       CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl) 
     575      CALL xios(get_filegroup_handle) & 
     576      (filegroup_id,filegroup_hdl) 
    526577      CALL xios(is_defined_filegroup_attr_hdl_)   & 
    527578      ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format  & 
    … …  
    655706 
    656707      IF (PRESENT(append_)) THEN 
    657         append__tmp = cxios_is_defined_filegroup_append(filegroup_hdl%daddr) 
     708        append__tmp = cxios_is_defined_filegroup_append & 
     709      (filegroup_hdl%daddr) 
    658710        append_ = append__tmp 
    659711      ENDIF 
    660712 
    661713      IF (PRESENT(compression_level_)) THEN 
    662         compression_level__tmp = cxios_is_defined_filegroup_compression_level(filegroup_hdl%daddr) 
     714        compression_level__tmp = cxios_is_defined_filegroup_compression_level & 
     715      (filegroup_hdl%daddr) 
    663716        compression_level_ = compression_level__tmp 
    664717      ENDIF 
    665718 
    666719      IF (PRESENT(convention_)) THEN 
    667         convention__tmp = cxios_is_defined_filegroup_convention(filegroup_hdl%daddr) 
     720        convention__tmp = cxios_is_defined_filegroup_convention & 
     721      (filegroup_hdl%daddr) 
    668722        convention_ = convention__tmp 
    669723      ENDIF 
    670724 
    671725      IF (PRESENT(cyclic_)) THEN 
    672         cyclic__tmp = cxios_is_defined_filegroup_cyclic(filegroup_hdl%daddr) 
     726        cyclic__tmp = cxios_is_defined_filegroup_cyclic & 
     727      (filegroup_hdl%daddr) 
    673728        cyclic_ = cyclic__tmp 
    674729      ENDIF 
    675730 
    676731      IF (PRESENT(description_)) THEN 
    677         description__tmp = cxios_is_defined_filegroup_description(filegroup_hdl%daddr) 
     732        description__tmp = cxios_is_defined_filegroup_description & 
     733      (filegroup_hdl%daddr) 
    678734        description_ = description__tmp 
    679735      ENDIF 
    680736 
    681737      IF (PRESENT(enabled_)) THEN 
    682         enabled__tmp = cxios_is_defined_filegroup_enabled(filegroup_hdl%daddr) 
     738        enabled__tmp = cxios_is_defined_filegroup_enabled & 
     739      (filegroup_hdl%daddr) 
    683740        enabled_ = enabled__tmp 
    684741      ENDIF 
    685742 
    686743      IF (PRESENT(format_)) THEN 
    687         format__tmp = cxios_is_defined_filegroup_format(filegroup_hdl%daddr) 
     744        format__tmp = cxios_is_defined_filegroup_format & 
     745      (filegroup_hdl%daddr) 
    688746        format_ = format__tmp 
    689747      ENDIF 
    690748 
    691749      IF (PRESENT(group_ref_)) THEN 
    692         group_ref__tmp = cxios_is_defined_filegroup_group_ref(filegroup_hdl%daddr) 
     750        group_ref__tmp = cxios_is_defined_filegroup_group_ref & 
     751      (filegroup_hdl%daddr) 
    693752        group_ref_ = group_ref__tmp 
    694753      ENDIF 
    695754 
    696755      IF (PRESENT(min_digits_)) THEN 
    697         min_digits__tmp = cxios_is_defined_filegroup_min_digits(filegroup_hdl%daddr) 
     756        min_digits__tmp = cxios_is_defined_filegroup_min_digits & 
     757      (filegroup_hdl%daddr) 
    698758        min_digits_ = min_digits__tmp 
    699759      ENDIF 
    700760 
    701761      IF (PRESENT(mode_)) THEN 
    702         mode__tmp = cxios_is_defined_filegroup_mode(filegroup_hdl%daddr) 
     762        mode__tmp = cxios_is_defined_filegroup_mode & 
     763      (filegroup_hdl%daddr) 
    703764        mode_ = mode__tmp 
    704765      ENDIF 
    705766 
    706767      IF (PRESENT(name_)) THEN 
    707         name__tmp = cxios_is_defined_filegroup_name(filegroup_hdl%daddr) 
     768        name__tmp = cxios_is_defined_filegroup_name & 
     769      (filegroup_hdl%daddr) 
    708770        name_ = name__tmp 
    709771      ENDIF 
    710772 
    711773      IF (PRESENT(name_suffix_)) THEN 
    712         name_suffix__tmp = cxios_is_defined_filegroup_name_suffix(filegroup_hdl%daddr) 
     774        name_suffix__tmp = cxios_is_defined_filegroup_name_suffix & 
     775      (filegroup_hdl%daddr) 
    713776        name_suffix_ = name_suffix__tmp 
    714777      ENDIF 
    715778 
    716779      IF (PRESENT(output_freq_)) THEN 
    717         output_freq__tmp = cxios_is_defined_filegroup_output_freq(filegroup_hdl%daddr) 
     780        output_freq__tmp = cxios_is_defined_filegroup_output_freq & 
     781      (filegroup_hdl%daddr) 
    718782        output_freq_ = output_freq__tmp 
    719783      ENDIF 
    720784 
    721785      IF (PRESENT(output_level_)) THEN 
    722         output_level__tmp = cxios_is_defined_filegroup_output_level(filegroup_hdl%daddr) 
     786        output_level__tmp = cxios_is_defined_filegroup_output_level & 
     787      (filegroup_hdl%daddr) 
    723788        output_level_ = output_level__tmp 
    724789      ENDIF 
    725790 
    726791      IF (PRESENT(par_access_)) THEN 
    727         par_access__tmp = cxios_is_defined_filegroup_par_access(filegroup_hdl%daddr) 
     792        par_access__tmp = cxios_is_defined_filegroup_par_access & 
     793      (filegroup_hdl%daddr) 
    728794        par_access_ = par_access__tmp 
    729795      ENDIF 
    730796 
    731797      IF (PRESENT(record_offset_)) THEN 
    732         record_offset__tmp = cxios_is_defined_filegroup_record_offset(filegroup_hdl%daddr) 
     798        record_offset__tmp = cxios_is_defined_filegroup_record_offset & 
     799      (filegroup_hdl%daddr) 
    733800        record_offset_ = record_offset__tmp 
    734801      ENDIF 
    735802 
    736803      IF (PRESENT(split_freq_)) THEN 
    737         split_freq__tmp = cxios_is_defined_filegroup_split_freq(filegroup_hdl%daddr) 
     804        split_freq__tmp = cxios_is_defined_filegroup_split_freq & 
     805      (filegroup_hdl%daddr) 
    738806        split_freq_ = split_freq__tmp 
    739807      ENDIF 
    740808 
    741809      IF (PRESENT(split_freq_format_)) THEN 
    742         split_freq_format__tmp = cxios_is_defined_filegroup_split_freq_format(filegroup_hdl%daddr) 
     810        split_freq_format__tmp = cxios_is_defined_filegroup_split_freq_format & 
     811      (filegroup_hdl%daddr) 
    743812        split_freq_format_ = split_freq_format__tmp 
    744813      ENDIF 
    745814 
    746815      IF (PRESENT(sync_freq_)) THEN 
    747         sync_freq__tmp = cxios_is_defined_filegroup_sync_freq(filegroup_hdl%daddr) 
     816        sync_freq__tmp = cxios_is_defined_filegroup_sync_freq & 
     817      (filegroup_hdl%daddr) 
    748818        sync_freq_ = sync_freq__tmp 
    749819      ENDIF 
    750820 
    751821      IF (PRESENT(time_counter_)) THEN 
    752         time_counter__tmp = cxios_is_defined_filegroup_time_counter(filegroup_hdl%daddr) 
     822        time_counter__tmp = cxios_is_defined_filegroup_time_counter & 
     823      (filegroup_hdl%daddr) 
    753824        time_counter_ = time_counter__tmp 
    754825      ENDIF 
    755826 
    756827      IF (PRESENT(time_counter_name_)) THEN 
    757         time_counter_name__tmp = cxios_is_defined_filegroup_time_counter_name(filegroup_hdl%daddr) 
     828        time_counter_name__tmp = cxios_is_defined_filegroup_time_counter_name & 
     829      (filegroup_hdl%daddr) 
    758830        time_counter_name_ = time_counter_name__tmp 
    759831      ENDIF 
    760832 
    761833      IF (PRESENT(timeseries_)) THEN 
    762         timeseries__tmp = cxios_is_defined_filegroup_timeseries(filegroup_hdl%daddr) 
     834        timeseries__tmp = cxios_is_defined_filegroup_timeseries & 
     835      (filegroup_hdl%daddr) 
    763836        timeseries_ = timeseries__tmp 
    764837      ENDIF 
    765838 
    766839      IF (PRESENT(ts_prefix_)) THEN 
    767         ts_prefix__tmp = cxios_is_defined_filegroup_ts_prefix(filegroup_hdl%daddr) 
     840        ts_prefix__tmp = cxios_is_defined_filegroup_ts_prefix & 
     841      (filegroup_hdl%daddr) 
    768842        ts_prefix_ = ts_prefix__tmp 
    769843      ENDIF 
    770844 
    771845      IF (PRESENT(type_)) THEN 
    772         type__tmp = cxios_is_defined_filegroup_type(filegroup_hdl%daddr) 
     846        type__tmp = cxios_is_defined_filegroup_type & 
     847      (filegroup_hdl%daddr) 
    773848        type_ = type__tmp 
    774849      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/igenerate_rectilinear_domain_attr.F90

    r786 r966  
    2727      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lon_start 
    2828 
    29       CALL xios(get_generate_rectilinear_domain_handle)(generate_rectilinear_domain_id,generate_rectilinear_domain_hdl) 
     29      CALL xios(get_generate_rectilinear_domain_handle) & 
     30      (generate_rectilinear_domain_id,generate_rectilinear_domain_hdl) 
    3031      CALL xios(set_generate_rectilinear_domain_attr_hdl_)   & 
    3132      ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start  & 
    … …  
    7172 
    7273      IF (PRESENT(bounds_lat_end_)) THEN 
    73         CALL cxios_set_generate_rectilinear_domain_bounds_lat_end(generate_rectilinear_domain_hdl%daddr, bounds_lat_end_) 
     74        CALL cxios_set_generate_rectilinear_domain_bounds_lat_end & 
     75      (generate_rectilinear_domain_hdl%daddr, bounds_lat_end_) 
    7476      ENDIF 
    7577 
    7678      IF (PRESENT(bounds_lat_start_)) THEN 
    77         CALL cxios_set_generate_rectilinear_domain_bounds_lat_start(generate_rectilinear_domain_hdl%daddr, bounds_lat_start_) 
     79        CALL cxios_set_generate_rectilinear_domain_bounds_lat_start & 
     80      (generate_rectilinear_domain_hdl%daddr, bounds_lat_start_) 
    7881      ENDIF 
    7982 
    8083      IF (PRESENT(bounds_lon_end_)) THEN 
    81         CALL cxios_set_generate_rectilinear_domain_bounds_lon_end(generate_rectilinear_domain_hdl%daddr, bounds_lon_end_) 
     84        CALL cxios_set_generate_rectilinear_domain_bounds_lon_end & 
     85      (generate_rectilinear_domain_hdl%daddr, bounds_lon_end_) 
    8286      ENDIF 
    8387 
    8488      IF (PRESENT(bounds_lon_start_)) THEN 
    85         CALL cxios_set_generate_rectilinear_domain_bounds_lon_start(generate_rectilinear_domain_hdl%daddr, bounds_lon_start_) 
     89        CALL cxios_set_generate_rectilinear_domain_bounds_lon_start & 
     90      (generate_rectilinear_domain_hdl%daddr, bounds_lon_start_) 
    8691      ENDIF 
    8792 
    8893      IF (PRESENT(lat_end_)) THEN 
    89         CALL cxios_set_generate_rectilinear_domain_lat_end(generate_rectilinear_domain_hdl%daddr, lat_end_) 
     94        CALL cxios_set_generate_rectilinear_domain_lat_end & 
     95      (generate_rectilinear_domain_hdl%daddr, lat_end_) 
    9096      ENDIF 
    9197 
    9298      IF (PRESENT(lat_start_)) THEN 
    93         CALL cxios_set_generate_rectilinear_domain_lat_start(generate_rectilinear_domain_hdl%daddr, lat_start_) 
     99        CALL cxios_set_generate_rectilinear_domain_lat_start & 
     100      (generate_rectilinear_domain_hdl%daddr, lat_start_) 
    94101      ENDIF 
    95102 
    96103      IF (PRESENT(lon_end_)) THEN 
    97         CALL cxios_set_generate_rectilinear_domain_lon_end(generate_rectilinear_domain_hdl%daddr, lon_end_) 
     104        CALL cxios_set_generate_rectilinear_domain_lon_end & 
     105      (generate_rectilinear_domain_hdl%daddr, lon_end_) 
    98106      ENDIF 
    99107 
    100108      IF (PRESENT(lon_start_)) THEN 
    101         CALL cxios_set_generate_rectilinear_domain_lon_start(generate_rectilinear_domain_hdl%daddr, lon_start_) 
     109        CALL cxios_set_generate_rectilinear_domain_lon_start & 
     110      (generate_rectilinear_domain_hdl%daddr, lon_start_) 
    102111      ENDIF 
    103112 
    … …  
    120129      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lon_start 
    121130 
    122       CALL xios(get_generate_rectilinear_domain_handle)(generate_rectilinear_domain_id,generate_rectilinear_domain_hdl) 
     131      CALL xios(get_generate_rectilinear_domain_handle) & 
     132      (generate_rectilinear_domain_id,generate_rectilinear_domain_hdl) 
    123133      CALL xios(get_generate_rectilinear_domain_attr_hdl_)   & 
    124134      ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start  & 
    … …  
    164174 
    165175      IF (PRESENT(bounds_lat_end_)) THEN 
    166         CALL cxios_get_generate_rectilinear_domain_bounds_lat_end(generate_rectilinear_domain_hdl%daddr, bounds_lat_end_) 
     176        CALL cxios_get_generate_rectilinear_domain_bounds_lat_end & 
     177      (generate_rectilinear_domain_hdl%daddr, bounds_lat_end_) 
    167178      ENDIF 
    168179 
    169180      IF (PRESENT(bounds_lat_start_)) THEN 
    170         CALL cxios_get_generate_rectilinear_domain_bounds_lat_start(generate_rectilinear_domain_hdl%daddr, bounds_lat_start_) 
     181        CALL cxios_get_generate_rectilinear_domain_bounds_lat_start & 
     182      (generate_rectilinear_domain_hdl%daddr, bounds_lat_start_) 
    171183      ENDIF 
    172184 
    173185      IF (PRESENT(bounds_lon_end_)) THEN 
    174         CALL cxios_get_generate_rectilinear_domain_bounds_lon_end(generate_rectilinear_domain_hdl%daddr, bounds_lon_end_) 
     186        CALL cxios_get_generate_rectilinear_domain_bounds_lon_end & 
     187      (generate_rectilinear_domain_hdl%daddr, bounds_lon_end_) 
    175188      ENDIF 
    176189 
    177190      IF (PRESENT(bounds_lon_start_)) THEN 
    178         CALL cxios_get_generate_rectilinear_domain_bounds_lon_start(generate_rectilinear_domain_hdl%daddr, bounds_lon_start_) 
     191        CALL cxios_get_generate_rectilinear_domain_bounds_lon_start & 
     192      (generate_rectilinear_domain_hdl%daddr, bounds_lon_start_) 
    179193      ENDIF 
    180194 
    181195      IF (PRESENT(lat_end_)) THEN 
    182         CALL cxios_get_generate_rectilinear_domain_lat_end(generate_rectilinear_domain_hdl%daddr, lat_end_) 
     196        CALL cxios_get_generate_rectilinear_domain_lat_end & 
     197      (generate_rectilinear_domain_hdl%daddr, lat_end_) 
    183198      ENDIF 
    184199 
    185200      IF (PRESENT(lat_start_)) THEN 
    186         CALL cxios_get_generate_rectilinear_domain_lat_start(generate_rectilinear_domain_hdl%daddr, lat_start_) 
     201        CALL cxios_get_generate_rectilinear_domain_lat_start & 
     202      (generate_rectilinear_domain_hdl%daddr, lat_start_) 
    187203      ENDIF 
    188204 
    189205      IF (PRESENT(lon_end_)) THEN 
    190         CALL cxios_get_generate_rectilinear_domain_lon_end(generate_rectilinear_domain_hdl%daddr, lon_end_) 
     206        CALL cxios_get_generate_rectilinear_domain_lon_end & 
     207      (generate_rectilinear_domain_hdl%daddr, lon_end_) 
    191208      ENDIF 
    192209 
    193210      IF (PRESENT(lon_start_)) THEN 
    194         CALL cxios_get_generate_rectilinear_domain_lon_start(generate_rectilinear_domain_hdl%daddr, lon_start_) 
     211        CALL cxios_get_generate_rectilinear_domain_lon_start & 
     212      (generate_rectilinear_domain_hdl%daddr, lon_start_) 
    195213      ENDIF 
    196214 
    … …  
    221239      LOGICAL(KIND=C_BOOL) :: lon_start_tmp 
    222240 
    223       CALL xios(get_generate_rectilinear_domain_handle)(generate_rectilinear_domain_id,generate_rectilinear_domain_hdl) 
     241      CALL xios(get_generate_rectilinear_domain_handle) & 
     242      (generate_rectilinear_domain_id,generate_rectilinear_domain_hdl) 
    224243      CALL xios(is_defined_generate_rectilinear_domain_attr_hdl_)   & 
    225244      ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start  & 
    … …  
    281300 
    282301      IF (PRESENT(bounds_lat_end_)) THEN 
    283         bounds_lat_end__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lat_end(generate_rectilinear_domain_hdl%daddr) 
     302        bounds_lat_end__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lat_end & 
     303      (generate_rectilinear_domain_hdl%daddr) 
    284304        bounds_lat_end_ = bounds_lat_end__tmp 
    285305      ENDIF 
    286306 
    287307      IF (PRESENT(bounds_lat_start_)) THEN 
    288         bounds_lat_start__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lat_start(generate_rectilinear_domain_hdl%daddr) 
     308        bounds_lat_start__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lat_start & 
     309      (generate_rectilinear_domain_hdl%daddr) 
    289310        bounds_lat_start_ = bounds_lat_start__tmp 
    290311      ENDIF 
    291312 
    292313      IF (PRESENT(bounds_lon_end_)) THEN 
    293         bounds_lon_end__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lon_end(generate_rectilinear_domain_hdl%daddr) 
     314        bounds_lon_end__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lon_end & 
     315      (generate_rectilinear_domain_hdl%daddr) 
    294316        bounds_lon_end_ = bounds_lon_end__tmp 
    295317      ENDIF 
    296318 
    297319      IF (PRESENT(bounds_lon_start_)) THEN 
    298         bounds_lon_start__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lon_start(generate_rectilinear_domain_hdl%daddr) 
     320        bounds_lon_start__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lon_start & 
     321      (generate_rectilinear_domain_hdl%daddr) 
    299322        bounds_lon_start_ = bounds_lon_start__tmp 
    300323      ENDIF 
    301324 
    302325      IF (PRESENT(lat_end_)) THEN 
    303         lat_end__tmp = cxios_is_defined_generate_rectilinear_domain_lat_end(generate_rectilinear_domain_hdl%daddr) 
     326        lat_end__tmp = cxios_is_defined_generate_rectilinear_domain_lat_end & 
     327      (generate_rectilinear_domain_hdl%daddr) 
    304328        lat_end_ = lat_end__tmp 
    305329      ENDIF 
    306330 
    307331      IF (PRESENT(lat_start_)) THEN 
    308         lat_start__tmp = cxios_is_defined_generate_rectilinear_domain_lat_start(generate_rectilinear_domain_hdl%daddr) 
     332        lat_start__tmp = cxios_is_defined_generate_rectilinear_domain_lat_start & 
     333      (generate_rectilinear_domain_hdl%daddr) 
    309334        lat_start_ = lat_start__tmp 
    310335      ENDIF 
    311336 
    312337      IF (PRESENT(lon_end_)) THEN 
    313         lon_end__tmp = cxios_is_defined_generate_rectilinear_domain_lon_end(generate_rectilinear_domain_hdl%daddr) 
     338        lon_end__tmp = cxios_is_defined_generate_rectilinear_domain_lon_end & 
     339      (generate_rectilinear_domain_hdl%daddr) 
    314340        lon_end_ = lon_end__tmp 
    315341      ENDIF 
    316342 
    317343      IF (PRESENT(lon_start_)) THEN 
    318         lon_start__tmp = cxios_is_defined_generate_rectilinear_domain_lon_start(generate_rectilinear_domain_hdl%daddr) 
     344        lon_start__tmp = cxios_is_defined_generate_rectilinear_domain_lon_start & 
     345      (generate_rectilinear_domain_hdl%daddr) 
    319346        lon_start_ = lon_start__tmp 
    320347      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/igrid_attr.F90

    r932 r966  
    3535      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
    3636 
    37       CALL xios(get_grid_handle)(grid_id,grid_hdl) 
     37      CALL xios(get_grid_handle) & 
     38      (grid_id,grid_hdl) 
    3839      CALL xios(set_grid_attr_hdl_)   & 
    3940      ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name  & 
    … …  
    9596 
    9697      IF (PRESENT(description_)) THEN 
    97         CALL cxios_set_grid_description(grid_hdl%daddr, description_, len(description_)) 
     98        CALL cxios_set_grid_description & 
     99      (grid_hdl%daddr, description_, len(description_)) 
    98100      ENDIF 
    99101 
    … …  
    101103        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1))) 
    102104        mask_1d__tmp = mask_1d_ 
    103         CALL cxios_set_grid_mask_1d(grid_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
     105        CALL cxios_set_grid_mask_1d & 
     106      (grid_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
    104107      ENDIF 
    105108 
    … …  
    107110        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2))) 
    108111        mask_2d__tmp = mask_2d_ 
    109         CALL cxios_set_grid_mask_2d(grid_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
     112        CALL cxios_set_grid_mask_2d & 
     113      (grid_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
    110114      ENDIF 
    111115 
    … …  
    113117        ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3))) 
    114118        mask_3d__tmp = mask_3d_ 
    115         CALL cxios_set_grid_mask_3d(grid_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_)) 
     119        CALL cxios_set_grid_mask_3d & 
     120      (grid_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_)) 
    116121      ENDIF 
    117122 
    118123      IF (PRESENT(mask_4d_)) THEN 
    119         ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), SIZE(mask_4d_,4))) 
     124        ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), & 
     125       SIZE(mask_4d_,4))) 
    120126        mask_4d__tmp = mask_4d_ 
    121         CALL cxios_set_grid_mask_4d(grid_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_)) 
     127        CALL cxios_set_grid_mask_4d & 
     128      (grid_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_)) 
    122129      ENDIF 
    123130 
    124131      IF (PRESENT(mask_5d_)) THEN 
    125         ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), SIZE(mask_5d_,4), SIZE(mask_5d_,5))) 
     132        ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), & 
     133       SIZE(mask_5d_,4), SIZE(mask_5d_,5))) 
    126134        mask_5d__tmp = mask_5d_ 
    127         CALL cxios_set_grid_mask_5d(grid_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_)) 
     135        CALL cxios_set_grid_mask_5d & 
     136      (grid_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_)) 
    128137      ENDIF 
    129138 
    130139      IF (PRESENT(mask_6d_)) THEN 
    131         ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6))) 
     140        ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), & 
     141       SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6))) 
    132142        mask_6d__tmp = mask_6d_ 
    133         CALL cxios_set_grid_mask_6d(grid_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_)) 
     143        CALL cxios_set_grid_mask_6d & 
     144      (grid_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_)) 
    134145      ENDIF 
    135146 
    136147      IF (PRESENT(mask_7d_)) THEN 
    137         ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), SIZE(mask_7d_,7))) 
     148        ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), & 
     149       SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), & 
     150       SIZE(mask_7d_,7))) 
    138151        mask_7d__tmp = mask_7d_ 
    139         CALL cxios_set_grid_mask_7d(grid_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_)) 
     152        CALL cxios_set_grid_mask_7d & 
     153      (grid_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_)) 
    140154      ENDIF 
    141155 
    142156      IF (PRESENT(name_)) THEN 
    143         CALL cxios_set_grid_name(grid_hdl%daddr, name_, len(name_)) 
     157        CALL cxios_set_grid_name & 
     158      (grid_hdl%daddr, name_, len(name_)) 
    144159      ENDIF 
    145160 
    … …  
    170185      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
    171186 
    172       CALL xios(get_grid_handle)(grid_id,grid_hdl) 
     187      CALL xios(get_grid_handle) & 
     188      (grid_id,grid_hdl) 
    173189      CALL xios(get_grid_attr_hdl_)   & 
    174190      ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name  & 
    … …  
    230246 
    231247      IF (PRESENT(description_)) THEN 
    232         CALL cxios_get_grid_description(grid_hdl%daddr, description_, len(description_)) 
     248        CALL cxios_get_grid_description & 
     249      (grid_hdl%daddr, description_, len(description_)) 
    233250      ENDIF 
    234251 
    235252      IF (PRESENT(mask_1d_)) THEN 
    236253        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1))) 
    237         CALL cxios_get_grid_mask_1d(grid_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
     254        CALL cxios_get_grid_mask_1d & 
     255      (grid_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
    238256        mask_1d_ = mask_1d__tmp 
    239257      ENDIF 
    … …  
    241259      IF (PRESENT(mask_2d_)) THEN 
    242260        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2))) 
    243         CALL cxios_get_grid_mask_2d(grid_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
     261        CALL cxios_get_grid_mask_2d & 
     262      (grid_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
    244263        mask_2d_ = mask_2d__tmp 
    245264      ENDIF 
    … …  
    247266      IF (PRESENT(mask_3d_)) THEN 
    248267        ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3))) 
    249         CALL cxios_get_grid_mask_3d(grid_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_)) 
     268        CALL cxios_get_grid_mask_3d & 
     269      (grid_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_)) 
    250270        mask_3d_ = mask_3d__tmp 
    251271      ENDIF 
    252272 
    253273      IF (PRESENT(mask_4d_)) THEN 
    254         ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), SIZE(mask_4d_,4))) 
    255         CALL cxios_get_grid_mask_4d(grid_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_)) 
     274        ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), & 
     275       SIZE(mask_4d_,4))) 
     276        CALL cxios_get_grid_mask_4d & 
     277      (grid_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_)) 
    256278        mask_4d_ = mask_4d__tmp 
    257279      ENDIF 
    258280 
    259281      IF (PRESENT(mask_5d_)) THEN 
    260         ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), SIZE(mask_5d_,4), SIZE(mask_5d_,5))) 
    261         CALL cxios_get_grid_mask_5d(grid_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_)) 
     282        ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), & 
     283       SIZE(mask_5d_,4), SIZE(mask_5d_,5))) 
     284        CALL cxios_get_grid_mask_5d & 
     285      (grid_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_)) 
    262286        mask_5d_ = mask_5d__tmp 
    263287      ENDIF 
    264288 
    265289      IF (PRESENT(mask_6d_)) THEN 
    266         ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6))) 
    267         CALL cxios_get_grid_mask_6d(grid_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_)) 
     290        ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), & 
     291       SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6))) 
     292        CALL cxios_get_grid_mask_6d & 
     293      (grid_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_)) 
    268294        mask_6d_ = mask_6d__tmp 
    269295      ENDIF 
    270296 
    271297      IF (PRESENT(mask_7d_)) THEN 
    272         ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), SIZE(mask_7d_,7))) 
    273         CALL cxios_get_grid_mask_7d(grid_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_)) 
     298        ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), & 
     299       SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), & 
     300       SIZE(mask_7d_,7))) 
     301        CALL cxios_get_grid_mask_7d & 
     302      (grid_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_)) 
    274303        mask_7d_ = mask_7d__tmp 
    275304      ENDIF 
    276305 
    277306      IF (PRESENT(name_)) THEN 
    278         CALL cxios_get_grid_name(grid_hdl%daddr, name_, len(name_)) 
     307        CALL cxios_get_grid_name & 
     308      (grid_hdl%daddr, name_, len(name_)) 
    279309      ENDIF 
    280310 
    … …  
    307337      LOGICAL(KIND=C_BOOL) :: name_tmp 
    308338 
    309       CALL xios(get_grid_handle)(grid_id,grid_hdl) 
     339      CALL xios(get_grid_handle) & 
     340      (grid_id,grid_hdl) 
    310341      CALL xios(is_defined_grid_attr_hdl_)   & 
    311342      ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name  & 
    … …  
    371402 
    372403      IF (PRESENT(description_)) THEN 
    373         description__tmp = cxios_is_defined_grid_description(grid_hdl%daddr) 
     404        description__tmp = cxios_is_defined_grid_description & 
     405      (grid_hdl%daddr) 
    374406        description_ = description__tmp 
    375407      ENDIF 
    376408 
    377409      IF (PRESENT(mask_1d_)) THEN 
    378         mask_1d__tmp = cxios_is_defined_grid_mask_1d(grid_hdl%daddr) 
     410        mask_1d__tmp = cxios_is_defined_grid_mask_1d & 
     411      (grid_hdl%daddr) 
    379412        mask_1d_ = mask_1d__tmp 
    380413      ENDIF 
    381414 
    382415      IF (PRESENT(mask_2d_)) THEN 
    383         mask_2d__tmp = cxios_is_defined_grid_mask_2d(grid_hdl%daddr) 
     416        mask_2d__tmp = cxios_is_defined_grid_mask_2d & 
     417      (grid_hdl%daddr) 
    384418        mask_2d_ = mask_2d__tmp 
    385419      ENDIF 
    386420 
    387421      IF (PRESENT(mask_3d_)) THEN 
    388         mask_3d__tmp = cxios_is_defined_grid_mask_3d(grid_hdl%daddr) 
     422        mask_3d__tmp = cxios_is_defined_grid_mask_3d & 
     423      (grid_hdl%daddr) 
    389424        mask_3d_ = mask_3d__tmp 
    390425      ENDIF 
    391426 
    392427      IF (PRESENT(mask_4d_)) THEN 
    393         mask_4d__tmp = cxios_is_defined_grid_mask_4d(grid_hdl%daddr) 
     428        mask_4d__tmp = cxios_is_defined_grid_mask_4d & 
     429      (grid_hdl%daddr) 
    394430        mask_4d_ = mask_4d__tmp 
    395431      ENDIF 
    396432 
    397433      IF (PRESENT(mask_5d_)) THEN 
    398         mask_5d__tmp = cxios_is_defined_grid_mask_5d(grid_hdl%daddr) 
     434        mask_5d__tmp = cxios_is_defined_grid_mask_5d & 
     435      (grid_hdl%daddr) 
    399436        mask_5d_ = mask_5d__tmp 
    400437      ENDIF 
    401438 
    402439      IF (PRESENT(mask_6d_)) THEN 
    403         mask_6d__tmp = cxios_is_defined_grid_mask_6d(grid_hdl%daddr) 
     440        mask_6d__tmp = cxios_is_defined_grid_mask_6d & 
     441      (grid_hdl%daddr) 
    404442        mask_6d_ = mask_6d__tmp 
    405443      ENDIF 
    406444 
    407445      IF (PRESENT(mask_7d_)) THEN 
    408         mask_7d__tmp = cxios_is_defined_grid_mask_7d(grid_hdl%daddr) 
     446        mask_7d__tmp = cxios_is_defined_grid_mask_7d & 
     447      (grid_hdl%daddr) 
    409448        mask_7d_ = mask_7d__tmp 
    410449      ENDIF 
    411450 
    412451      IF (PRESENT(name_)) THEN 
    413         name__tmp = cxios_is_defined_grid_name(grid_hdl%daddr) 
     452        name__tmp = cxios_is_defined_grid_name & 
     453      (grid_hdl%daddr) 
    414454        name_ = name__tmp 
    415455      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/igridgroup_attr.F90

    r932 r966  
    3636      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
    3737 
    38       CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl) 
     38      CALL xios(get_gridgroup_handle) & 
     39      (gridgroup_id,gridgroup_hdl) 
    3940      CALL xios(set_gridgroup_attr_hdl_)   & 
    4041      ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  & 
    … …  
    9899 
    99100      IF (PRESENT(description_)) THEN 
    100         CALL cxios_set_gridgroup_description(gridgroup_hdl%daddr, description_, len(description_)) 
     101        CALL cxios_set_gridgroup_description & 
     102      (gridgroup_hdl%daddr, description_, len(description_)) 
    101103      ENDIF 
    102104 
    103105      IF (PRESENT(group_ref_)) THEN 
    104         CALL cxios_set_gridgroup_group_ref(gridgroup_hdl%daddr, group_ref_, len(group_ref_)) 
     106        CALL cxios_set_gridgroup_group_ref & 
     107      (gridgroup_hdl%daddr, group_ref_, len(group_ref_)) 
    105108      ENDIF 
    106109 
    … …  
    108111        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1))) 
    109112        mask_1d__tmp = mask_1d_ 
    110         CALL cxios_set_gridgroup_mask_1d(gridgroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
     113        CALL cxios_set_gridgroup_mask_1d & 
     114      (gridgroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
    111115      ENDIF 
    112116 
    … …  
    114118        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2))) 
    115119        mask_2d__tmp = mask_2d_ 
    116         CALL cxios_set_gridgroup_mask_2d(gridgroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
     120        CALL cxios_set_gridgroup_mask_2d & 
     121      (gridgroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
    117122      ENDIF 
    118123 
    … …  
    120125        ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3))) 
    121126        mask_3d__tmp = mask_3d_ 
    122         CALL cxios_set_gridgroup_mask_3d(gridgroup_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_)) 
     127        CALL cxios_set_gridgroup_mask_3d & 
     128      (gridgroup_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_)) 
    123129      ENDIF 
    124130 
    125131      IF (PRESENT(mask_4d_)) THEN 
    126         ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), SIZE(mask_4d_,4))) 
     132        ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), & 
     133       SIZE(mask_4d_,4))) 
    127134        mask_4d__tmp = mask_4d_ 
    128         CALL cxios_set_gridgroup_mask_4d(gridgroup_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_)) 
     135        CALL cxios_set_gridgroup_mask_4d & 
     136      (gridgroup_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_)) 
    129137      ENDIF 
    130138 
    131139      IF (PRESENT(mask_5d_)) THEN 
    132         ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), SIZE(mask_5d_,4), SIZE(mask_5d_,5))) 
     140        ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), & 
     141       SIZE(mask_5d_,4), SIZE(mask_5d_,5))) 
    133142        mask_5d__tmp = mask_5d_ 
    134         CALL cxios_set_gridgroup_mask_5d(gridgroup_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_)) 
     143        CALL cxios_set_gridgroup_mask_5d & 
     144      (gridgroup_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_)) 
    135145      ENDIF 
    136146 
    137147      IF (PRESENT(mask_6d_)) THEN 
    138         ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6))) 
     148        ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), & 
     149       SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6))) 
    139150        mask_6d__tmp = mask_6d_ 
    140         CALL cxios_set_gridgroup_mask_6d(gridgroup_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_)) 
     151        CALL cxios_set_gridgroup_mask_6d & 
     152      (gridgroup_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_)) 
    141153      ENDIF 
    142154 
    143155      IF (PRESENT(mask_7d_)) THEN 
    144         ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), SIZE(mask_7d_,7))) 
     156        ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), & 
     157       SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), & 
     158       SIZE(mask_7d_,7))) 
    145159        mask_7d__tmp = mask_7d_ 
    146         CALL cxios_set_gridgroup_mask_7d(gridgroup_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_)) 
     160        CALL cxios_set_gridgroup_mask_7d & 
     161      (gridgroup_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_)) 
    147162      ENDIF 
    148163 
    149164      IF (PRESENT(name_)) THEN 
    150         CALL cxios_set_gridgroup_name(gridgroup_hdl%daddr, name_, len(name_)) 
     165        CALL cxios_set_gridgroup_name & 
     166      (gridgroup_hdl%daddr, name_, len(name_)) 
    151167      ENDIF 
    152168 
    … …  
    178194      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
    179195 
    180       CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl) 
     196      CALL xios(get_gridgroup_handle) & 
     197      (gridgroup_id,gridgroup_hdl) 
    181198      CALL xios(get_gridgroup_attr_hdl_)   & 
    182199      ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  & 
    … …  
    240257 
    241258      IF (PRESENT(description_)) THEN 
    242         CALL cxios_get_gridgroup_description(gridgroup_hdl%daddr, description_, len(description_)) 
     259        CALL cxios_get_gridgroup_description & 
     260      (gridgroup_hdl%daddr, description_, len(description_)) 
    243261      ENDIF 
    244262 
    245263      IF (PRESENT(group_ref_)) THEN 
    246         CALL cxios_get_gridgroup_group_ref(gridgroup_hdl%daddr, group_ref_, len(group_ref_)) 
     264        CALL cxios_get_gridgroup_group_ref & 
     265      (gridgroup_hdl%daddr, group_ref_, len(group_ref_)) 
    247266      ENDIF 
    248267 
    249268      IF (PRESENT(mask_1d_)) THEN 
    250269        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1))) 
    251         CALL cxios_get_gridgroup_mask_1d(gridgroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
     270        CALL cxios_get_gridgroup_mask_1d & 
     271      (gridgroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
    252272        mask_1d_ = mask_1d__tmp 
    253273      ENDIF 
    … …  
    255275      IF (PRESENT(mask_2d_)) THEN 
    256276        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2))) 
    257         CALL cxios_get_gridgroup_mask_2d(gridgroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
     277        CALL cxios_get_gridgroup_mask_2d & 
     278      (gridgroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
    258279        mask_2d_ = mask_2d__tmp 
    259280      ENDIF 
    … …  
    261282      IF (PRESENT(mask_3d_)) THEN 
    262283        ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3))) 
    263         CALL cxios_get_gridgroup_mask_3d(gridgroup_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_)) 
     284        CALL cxios_get_gridgroup_mask_3d & 
     285      (gridgroup_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_)) 
    264286        mask_3d_ = mask_3d__tmp 
    265287      ENDIF 
    266288 
    267289      IF (PRESENT(mask_4d_)) THEN 
    268         ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), SIZE(mask_4d_,4))) 
    269         CALL cxios_get_gridgroup_mask_4d(gridgroup_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_)) 
     290        ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), & 
     291       SIZE(mask_4d_,4))) 
     292        CALL cxios_get_gridgroup_mask_4d & 
     293      (gridgroup_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_)) 
    270294        mask_4d_ = mask_4d__tmp 
    271295      ENDIF 
    272296 
    273297      IF (PRESENT(mask_5d_)) THEN 
    274         ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), SIZE(mask_5d_,4), SIZE(mask_5d_,5))) 
    275         CALL cxios_get_gridgroup_mask_5d(gridgroup_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_)) 
     298        ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), & 
     299       SIZE(mask_5d_,4), SIZE(mask_5d_,5))) 
     300        CALL cxios_get_gridgroup_mask_5d & 
     301      (gridgroup_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_)) 
    276302        mask_5d_ = mask_5d__tmp 
    277303      ENDIF 
    278304 
    279305      IF (PRESENT(mask_6d_)) THEN 
    280         ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6))) 
    281         CALL cxios_get_gridgroup_mask_6d(gridgroup_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_)) 
     306        ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), & 
     307       SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6))) 
     308        CALL cxios_get_gridgroup_mask_6d & 
     309      (gridgroup_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_)) 
    282310        mask_6d_ = mask_6d__tmp 
    283311      ENDIF 
    284312 
    285313      IF (PRESENT(mask_7d_)) THEN 
    286         ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), SIZE(mask_7d_,7))) 
    287         CALL cxios_get_gridgroup_mask_7d(gridgroup_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_)) 
     314        ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), & 
     315       SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), & 
     316       SIZE(mask_7d_,7))) 
     317        CALL cxios_get_gridgroup_mask_7d & 
     318      (gridgroup_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_)) 
    288319        mask_7d_ = mask_7d__tmp 
    289320      ENDIF 
    290321 
    291322      IF (PRESENT(name_)) THEN 
    292         CALL cxios_get_gridgroup_name(gridgroup_hdl%daddr, name_, len(name_)) 
     323        CALL cxios_get_gridgroup_name & 
     324      (gridgroup_hdl%daddr, name_, len(name_)) 
    293325      ENDIF 
    294326 
    … …  
    323355      LOGICAL(KIND=C_BOOL) :: name_tmp 
    324356 
    325       CALL xios(get_gridgroup_handle)(gridgroup_id,gridgroup_hdl) 
     357      CALL xios(get_gridgroup_handle) & 
     358      (gridgroup_id,gridgroup_hdl) 
    326359      CALL xios(is_defined_gridgroup_attr_hdl_)   & 
    327360      ( gridgroup_hdl, description, group_ref, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d  & 
    … …  
    391424 
    392425      IF (PRESENT(description_)) THEN 
    393         description__tmp = cxios_is_defined_gridgroup_description(gridgroup_hdl%daddr) 
     426        description__tmp = cxios_is_defined_gridgroup_description & 
     427      (gridgroup_hdl%daddr) 
    394428        description_ = description__tmp 
    395429      ENDIF 
    396430 
    397431      IF (PRESENT(group_ref_)) THEN 
    398         group_ref__tmp = cxios_is_defined_gridgroup_group_ref(gridgroup_hdl%daddr) 
     432        group_ref__tmp = cxios_is_defined_gridgroup_group_ref & 
     433      (gridgroup_hdl%daddr) 
    399434        group_ref_ = group_ref__tmp 
    400435      ENDIF 
    401436 
    402437      IF (PRESENT(mask_1d_)) THEN 
    403         mask_1d__tmp = cxios_is_defined_gridgroup_mask_1d(gridgroup_hdl%daddr) 
     438        mask_1d__tmp = cxios_is_defined_gridgroup_mask_1d & 
     439      (gridgroup_hdl%daddr) 
    404440        mask_1d_ = mask_1d__tmp 
    405441      ENDIF 
    406442 
    407443      IF (PRESENT(mask_2d_)) THEN 
    408         mask_2d__tmp = cxios_is_defined_gridgroup_mask_2d(gridgroup_hdl%daddr) 
     444        mask_2d__tmp = cxios_is_defined_gridgroup_mask_2d & 
     445      (gridgroup_hdl%daddr) 
    409446        mask_2d_ = mask_2d__tmp 
    410447      ENDIF 
    411448 
    412449      IF (PRESENT(mask_3d_)) THEN 
    413         mask_3d__tmp = cxios_is_defined_gridgroup_mask_3d(gridgroup_hdl%daddr) 
     450        mask_3d__tmp = cxios_is_defined_gridgroup_mask_3d & 
     451      (gridgroup_hdl%daddr) 
    414452        mask_3d_ = mask_3d__tmp 
    415453      ENDIF 
    416454 
    417455      IF (PRESENT(mask_4d_)) THEN 
    418         mask_4d__tmp = cxios_is_defined_gridgroup_mask_4d(gridgroup_hdl%daddr) 
     456        mask_4d__tmp = cxios_is_defined_gridgroup_mask_4d & 
     457      (gridgroup_hdl%daddr) 
    419458        mask_4d_ = mask_4d__tmp 
    420459      ENDIF 
    421460 
    422461      IF (PRESENT(mask_5d_)) THEN 
    423         mask_5d__tmp = cxios_is_defined_gridgroup_mask_5d(gridgroup_hdl%daddr) 
     462        mask_5d__tmp = cxios_is_defined_gridgroup_mask_5d & 
     463      (gridgroup_hdl%daddr) 
    424464        mask_5d_ = mask_5d__tmp 
    425465      ENDIF 
    426466 
    427467      IF (PRESENT(mask_6d_)) THEN 
    428         mask_6d__tmp = cxios_is_defined_gridgroup_mask_6d(gridgroup_hdl%daddr) 
     468        mask_6d__tmp = cxios_is_defined_gridgroup_mask_6d & 
     469      (gridgroup_hdl%daddr) 
    429470        mask_6d_ = mask_6d__tmp 
    430471      ENDIF 
    431472 
    432473      IF (PRESENT(mask_7d_)) THEN 
    433         mask_7d__tmp = cxios_is_defined_gridgroup_mask_7d(gridgroup_hdl%daddr) 
     474        mask_7d__tmp = cxios_is_defined_gridgroup_mask_7d & 
     475      (gridgroup_hdl%daddr) 
    434476        mask_7d_ = mask_7d__tmp 
    435477      ENDIF 
    436478 
    437479      IF (PRESENT(name_)) THEN 
    438         name__tmp = cxios_is_defined_gridgroup_name(gridgroup_hdl%daddr) 
     480        name__tmp = cxios_is_defined_gridgroup_name & 
     481      (gridgroup_hdl%daddr) 
    439482        name_ = name__tmp 
    440483      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/iinterpolate_axis_attr.F90

    r891 r966  
    2121      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    2222 
    23       CALL xios(get_interpolate_axis_handle)(interpolate_axis_id,interpolate_axis_hdl) 
     23      CALL xios(get_interpolate_axis_handle) & 
     24      (interpolate_axis_id,interpolate_axis_hdl) 
    2425      CALL xios(set_interpolate_axis_attr_hdl_)   & 
    2526      ( interpolate_axis_hdl, coordinate, order, type ) 
    … …  
    5152 
    5253      IF (PRESENT(coordinate_)) THEN 
    53         CALL cxios_set_interpolate_axis_coordinate(interpolate_axis_hdl%daddr, coordinate_, len(coordinate_)) 
     54        CALL cxios_set_interpolate_axis_coordinate & 
     55      (interpolate_axis_hdl%daddr, coordinate_, len(coordinate_)) 
    5456      ENDIF 
    5557 
    5658      IF (PRESENT(order_)) THEN 
    57         CALL cxios_set_interpolate_axis_order(interpolate_axis_hdl%daddr, order_) 
     59        CALL cxios_set_interpolate_axis_order & 
     60      (interpolate_axis_hdl%daddr, order_) 
    5861      ENDIF 
    5962 
    6063      IF (PRESENT(type_)) THEN 
    61         CALL cxios_set_interpolate_axis_type(interpolate_axis_hdl%daddr, type_, len(type_)) 
     64        CALL cxios_set_interpolate_axis_type & 
     65      (interpolate_axis_hdl%daddr, type_, len(type_)) 
    6266      ENDIF 
    6367 
    … …  
    7478      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    7579 
    76       CALL xios(get_interpolate_axis_handle)(interpolate_axis_id,interpolate_axis_hdl) 
     80      CALL xios(get_interpolate_axis_handle) & 
     81      (interpolate_axis_id,interpolate_axis_hdl) 
    7782      CALL xios(get_interpolate_axis_attr_hdl_)   & 
    7883      ( interpolate_axis_hdl, coordinate, order, type ) 
    … …  
    104109 
    105110      IF (PRESENT(coordinate_)) THEN 
    106         CALL cxios_get_interpolate_axis_coordinate(interpolate_axis_hdl%daddr, coordinate_, len(coordinate_)) 
     111        CALL cxios_get_interpolate_axis_coordinate & 
     112      (interpolate_axis_hdl%daddr, coordinate_, len(coordinate_)) 
    107113      ENDIF 
    108114 
    109115      IF (PRESENT(order_)) THEN 
    110         CALL cxios_get_interpolate_axis_order(interpolate_axis_hdl%daddr, order_) 
     116        CALL cxios_get_interpolate_axis_order & 
     117      (interpolate_axis_hdl%daddr, order_) 
    111118      ENDIF 
    112119 
    113120      IF (PRESENT(type_)) THEN 
    114         CALL cxios_get_interpolate_axis_type(interpolate_axis_hdl%daddr, type_, len(type_)) 
     121        CALL cxios_get_interpolate_axis_type & 
     122      (interpolate_axis_hdl%daddr, type_, len(type_)) 
    115123      ENDIF 
    116124 
    … …  
    130138      LOGICAL(KIND=C_BOOL) :: type_tmp 
    131139 
    132       CALL xios(get_interpolate_axis_handle)(interpolate_axis_id,interpolate_axis_hdl) 
     140      CALL xios(get_interpolate_axis_handle) & 
     141      (interpolate_axis_id,interpolate_axis_hdl) 
    133142      CALL xios(is_defined_interpolate_axis_attr_hdl_)   & 
    134143      ( interpolate_axis_hdl, coordinate, order, type ) 
    … …  
    166175 
    167176      IF (PRESENT(coordinate_)) THEN 
    168         coordinate__tmp = cxios_is_defined_interpolate_axis_coordinate(interpolate_axis_hdl%daddr) 
     177        coordinate__tmp = cxios_is_defined_interpolate_axis_coordinate & 
     178      (interpolate_axis_hdl%daddr) 
    169179        coordinate_ = coordinate__tmp 
    170180      ENDIF 
    171181 
    172182      IF (PRESENT(order_)) THEN 
    173         order__tmp = cxios_is_defined_interpolate_axis_order(interpolate_axis_hdl%daddr) 
     183        order__tmp = cxios_is_defined_interpolate_axis_order & 
     184      (interpolate_axis_hdl%daddr) 
    174185        order_ = order__tmp 
    175186      ENDIF 
    176187 
    177188      IF (PRESENT(type_)) THEN 
    178         type__tmp = cxios_is_defined_interpolate_axis_type(interpolate_axis_hdl%daddr) 
     189        type__tmp = cxios_is_defined_interpolate_axis_type & 
     190      (interpolate_axis_hdl%daddr) 
    179191        type_ = type__tmp 
    180192      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/iinterpolate_domain_attr.F90

    r891 r966  
    2222      LOGICAL (KIND=C_BOOL) :: renormalize_tmp 
    2323 
    24       CALL xios(get_interpolate_domain_handle)(interpolate_domain_id,interpolate_domain_hdl) 
     24      CALL xios(get_interpolate_domain_handle) & 
     25      (interpolate_domain_id,interpolate_domain_hdl) 
    2526      CALL xios(set_interpolate_domain_attr_hdl_)   & 
    2627      ( interpolate_domain_hdl, file, order, renormalize ) 
    … …  
    5455 
    5556      IF (PRESENT(file_)) THEN 
    56         CALL cxios_set_interpolate_domain_file(interpolate_domain_hdl%daddr, file_, len(file_)) 
     57        CALL cxios_set_interpolate_domain_file & 
     58      (interpolate_domain_hdl%daddr, file_, len(file_)) 
    5759      ENDIF 
    5860 
    5961      IF (PRESENT(order_)) THEN 
    60         CALL cxios_set_interpolate_domain_order(interpolate_domain_hdl%daddr, order_) 
     62        CALL cxios_set_interpolate_domain_order & 
     63      (interpolate_domain_hdl%daddr, order_) 
    6164      ENDIF 
    6265 
    6366      IF (PRESENT(renormalize_)) THEN 
    6467        renormalize__tmp = renormalize_ 
    65         CALL cxios_set_interpolate_domain_renormalize(interpolate_domain_hdl%daddr, renormalize__tmp) 
     68        CALL cxios_set_interpolate_domain_renormalize & 
     69      (interpolate_domain_hdl%daddr, renormalize__tmp) 
    6670      ENDIF 
    6771 
    … …  
    7983      LOGICAL (KIND=C_BOOL) :: renormalize_tmp 
    8084 
    81       CALL xios(get_interpolate_domain_handle)(interpolate_domain_id,interpolate_domain_hdl) 
     85      CALL xios(get_interpolate_domain_handle) & 
     86      (interpolate_domain_id,interpolate_domain_hdl) 
    8287      CALL xios(get_interpolate_domain_attr_hdl_)   & 
    8388      ( interpolate_domain_hdl, file, order, renormalize ) 
    … …  
    111116 
    112117      IF (PRESENT(file_)) THEN 
    113         CALL cxios_get_interpolate_domain_file(interpolate_domain_hdl%daddr, file_, len(file_)) 
     118        CALL cxios_get_interpolate_domain_file & 
     119      (interpolate_domain_hdl%daddr, file_, len(file_)) 
    114120      ENDIF 
    115121 
    116122      IF (PRESENT(order_)) THEN 
    117         CALL cxios_get_interpolate_domain_order(interpolate_domain_hdl%daddr, order_) 
     123        CALL cxios_get_interpolate_domain_order & 
     124      (interpolate_domain_hdl%daddr, order_) 
    118125      ENDIF 
    119126 
    120127      IF (PRESENT(renormalize_)) THEN 
    121         CALL cxios_get_interpolate_domain_renormalize(interpolate_domain_hdl%daddr, renormalize__tmp) 
     128        CALL cxios_get_interpolate_domain_renormalize & 
     129      (interpolate_domain_hdl%daddr, renormalize__tmp) 
    122130        renormalize_ = renormalize__tmp 
    123131      ENDIF 
    … …  
    138146      LOGICAL(KIND=C_BOOL) :: renormalize_tmp 
    139147 
    140       CALL xios(get_interpolate_domain_handle)(interpolate_domain_id,interpolate_domain_hdl) 
     148      CALL xios(get_interpolate_domain_handle) & 
     149      (interpolate_domain_id,interpolate_domain_hdl) 
    141150      CALL xios(is_defined_interpolate_domain_attr_hdl_)   & 
    142151      ( interpolate_domain_hdl, file, order, renormalize ) 
    … …  
    174183 
    175184      IF (PRESENT(file_)) THEN 
    176         file__tmp = cxios_is_defined_interpolate_domain_file(interpolate_domain_hdl%daddr) 
     185        file__tmp = cxios_is_defined_interpolate_domain_file & 
     186      (interpolate_domain_hdl%daddr) 
    177187        file_ = file__tmp 
    178188      ENDIF 
    179189 
    180190      IF (PRESENT(order_)) THEN 
    181         order__tmp = cxios_is_defined_interpolate_domain_order(interpolate_domain_hdl%daddr) 
     191        order__tmp = cxios_is_defined_interpolate_domain_order & 
     192      (interpolate_domain_hdl%daddr) 
    182193        order_ = order__tmp 
    183194      ENDIF 
    184195 
    185196      IF (PRESENT(renormalize_)) THEN 
    186         renormalize__tmp = cxios_is_defined_interpolate_domain_renormalize(interpolate_domain_hdl%daddr) 
     197        renormalize__tmp = cxios_is_defined_interpolate_domain_renormalize & 
     198      (interpolate_domain_hdl%daddr) 
    187199        renormalize_ = renormalize__tmp 
    188200      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/iinverse_axis_attr.F90

    r786 r966  
    1818      CHARACTER(LEN=*), INTENT(IN) ::inverse_axis_id 
    1919 
    20       CALL xios(get_inverse_axis_handle)(inverse_axis_id,inverse_axis_hdl) 
     20      CALL xios(get_inverse_axis_handle) & 
     21      (inverse_axis_id,inverse_axis_hdl) 
    2122      CALL xios(set_inverse_axis_attr_hdl_)   & 
    2223      ( inverse_axis_hdl ) 
    … …  
    5051      CHARACTER(LEN=*), INTENT(IN) ::inverse_axis_id 
    5152 
    52       CALL xios(get_inverse_axis_handle)(inverse_axis_id,inverse_axis_hdl) 
     53      CALL xios(get_inverse_axis_handle) & 
     54      (inverse_axis_id,inverse_axis_hdl) 
    5355      CALL xios(get_inverse_axis_attr_hdl_)   & 
    5456      ( inverse_axis_hdl ) 
    … …  
    8284      CHARACTER(LEN=*), INTENT(IN) ::inverse_axis_id 
    8385 
    84       CALL xios(get_inverse_axis_handle)(inverse_axis_id,inverse_axis_hdl) 
     86      CALL xios(get_inverse_axis_handle) & 
     87      (inverse_axis_id,inverse_axis_hdl) 
    8588      CALL xios(is_defined_inverse_axis_attr_hdl_)   & 
    8689      ( inverse_axis_hdl ) 

  • XIOS/trunk/src/interface/fortran_attr/ireduce_axis_to_scalar_attr.F90

    r891 r966  
    1919      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation 
    2020 
    21       CALL xios(get_reduce_axis_to_scalar_handle)(reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl) 
     21      CALL xios(get_reduce_axis_to_scalar_handle) & 
     22      (reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl) 
    2223      CALL xios(set_reduce_axis_to_scalar_attr_hdl_)   & 
    2324      ( reduce_axis_to_scalar_hdl, operation ) 
    … …  
    4546 
    4647      IF (PRESENT(operation_)) THEN 
    47         CALL cxios_set_reduce_axis_to_scalar_operation(reduce_axis_to_scalar_hdl%daddr, operation_, len(operation_)) 
     48        CALL cxios_set_reduce_axis_to_scalar_operation & 
     49      (reduce_axis_to_scalar_hdl%daddr, operation_, len(operation_)) 
    4850      ENDIF 
    4951 
    … …  
    5860      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation 
    5961 
    60       CALL xios(get_reduce_axis_to_scalar_handle)(reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl) 
     62      CALL xios(get_reduce_axis_to_scalar_handle) & 
     63      (reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl) 
    6164      CALL xios(get_reduce_axis_to_scalar_attr_hdl_)   & 
    6265      ( reduce_axis_to_scalar_hdl, operation ) 
    … …  
    8487 
    8588      IF (PRESENT(operation_)) THEN 
    86         CALL cxios_get_reduce_axis_to_scalar_operation(reduce_axis_to_scalar_hdl%daddr, operation_, len(operation_)) 
     89        CALL cxios_get_reduce_axis_to_scalar_operation & 
     90      (reduce_axis_to_scalar_hdl%daddr, operation_, len(operation_)) 
    8791      ENDIF 
    8892 
    … …  
    98102      LOGICAL(KIND=C_BOOL) :: operation_tmp 
    99103 
    100       CALL xios(get_reduce_axis_to_scalar_handle)(reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl) 
     104      CALL xios(get_reduce_axis_to_scalar_handle) & 
     105      (reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl) 
    101106      CALL xios(is_defined_reduce_axis_to_scalar_attr_hdl_)   & 
    102107      ( reduce_axis_to_scalar_hdl, operation ) 
    … …  
    126131 
    127132      IF (PRESENT(operation_)) THEN 
    128         operation__tmp = cxios_is_defined_reduce_axis_to_scalar_operation(reduce_axis_to_scalar_hdl%daddr) 
     133        operation__tmp = cxios_is_defined_reduce_axis_to_scalar_operation & 
     134      (reduce_axis_to_scalar_hdl%daddr) 
    129135        operation_ = operation__tmp 
    130136      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/iscalar_attr.F90

    r891 r966  
    2424      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value 
    2525 
    26       CALL xios(get_scalar_handle)(scalar_id,scalar_hdl) 
     26      CALL xios(get_scalar_handle) & 
     27      (scalar_id,scalar_hdl) 
    2728      CALL xios(set_scalar_attr_hdl_)   & 
    2829      ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value ) 
    … …  
    6061 
    6162      IF (PRESENT(long_name_)) THEN 
    62         CALL cxios_set_scalar_long_name(scalar_hdl%daddr, long_name_, len(long_name_)) 
     63        CALL cxios_set_scalar_long_name & 
     64      (scalar_hdl%daddr, long_name_, len(long_name_)) 
    6365      ENDIF 
    6466 
    6567      IF (PRESENT(name_)) THEN 
    66         CALL cxios_set_scalar_name(scalar_hdl%daddr, name_, len(name_)) 
     68        CALL cxios_set_scalar_name & 
     69      (scalar_hdl%daddr, name_, len(name_)) 
    6770      ENDIF 
    6871 
    6972      IF (PRESENT(scalar_ref_)) THEN 
    70         CALL cxios_set_scalar_scalar_ref(scalar_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
     73        CALL cxios_set_scalar_scalar_ref & 
     74      (scalar_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
    7175      ENDIF 
    7276 
    7377      IF (PRESENT(standard_name_)) THEN 
    74         CALL cxios_set_scalar_standard_name(scalar_hdl%daddr, standard_name_, len(standard_name_)) 
     78        CALL cxios_set_scalar_standard_name & 
     79      (scalar_hdl%daddr, standard_name_, len(standard_name_)) 
    7580      ENDIF 
    7681 
    7782      IF (PRESENT(unit_)) THEN 
    78         CALL cxios_set_scalar_unit(scalar_hdl%daddr, unit_, len(unit_)) 
     83        CALL cxios_set_scalar_unit & 
     84      (scalar_hdl%daddr, unit_, len(unit_)) 
    7985      ENDIF 
    8086 
    8187      IF (PRESENT(value_)) THEN 
    82         CALL cxios_set_scalar_value(scalar_hdl%daddr, value_) 
     88        CALL cxios_set_scalar_value & 
     89      (scalar_hdl%daddr, value_) 
    8390      ENDIF 
    8491 
    … …  
    98105      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value 
    99106 
    100       CALL xios(get_scalar_handle)(scalar_id,scalar_hdl) 
     107      CALL xios(get_scalar_handle) & 
     108      (scalar_id,scalar_hdl) 
    101109      CALL xios(get_scalar_attr_hdl_)   & 
    102110      ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value ) 
    … …  
    134142 
    135143      IF (PRESENT(long_name_)) THEN 
    136         CALL cxios_get_scalar_long_name(scalar_hdl%daddr, long_name_, len(long_name_)) 
     144        CALL cxios_get_scalar_long_name & 
     145      (scalar_hdl%daddr, long_name_, len(long_name_)) 
    137146      ENDIF 
    138147 
    139148      IF (PRESENT(name_)) THEN 
    140         CALL cxios_get_scalar_name(scalar_hdl%daddr, name_, len(name_)) 
     149        CALL cxios_get_scalar_name & 
     150      (scalar_hdl%daddr, name_, len(name_)) 
    141151      ENDIF 
    142152 
    143153      IF (PRESENT(scalar_ref_)) THEN 
    144         CALL cxios_get_scalar_scalar_ref(scalar_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
     154        CALL cxios_get_scalar_scalar_ref & 
     155      (scalar_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
    145156      ENDIF 
    146157 
    147158      IF (PRESENT(standard_name_)) THEN 
    148         CALL cxios_get_scalar_standard_name(scalar_hdl%daddr, standard_name_, len(standard_name_)) 
     159        CALL cxios_get_scalar_standard_name & 
     160      (scalar_hdl%daddr, standard_name_, len(standard_name_)) 
    149161      ENDIF 
    150162 
    151163      IF (PRESENT(unit_)) THEN 
    152         CALL cxios_get_scalar_unit(scalar_hdl%daddr, unit_, len(unit_)) 
     164        CALL cxios_get_scalar_unit & 
     165      (scalar_hdl%daddr, unit_, len(unit_)) 
    153166      ENDIF 
    154167 
    155168      IF (PRESENT(value_)) THEN 
    156         CALL cxios_get_scalar_value(scalar_hdl%daddr, value_) 
     169        CALL cxios_get_scalar_value & 
     170      (scalar_hdl%daddr, value_) 
    157171      ENDIF 
    158172 
    … …  
    178192      LOGICAL(KIND=C_BOOL) :: value_tmp 
    179193 
    180       CALL xios(get_scalar_handle)(scalar_id,scalar_hdl) 
     194      CALL xios(get_scalar_handle) & 
     195      (scalar_id,scalar_hdl) 
    181196      CALL xios(is_defined_scalar_attr_hdl_)   & 
    182197      ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value ) 
    … …  
    226241 
    227242      IF (PRESENT(long_name_)) THEN 
    228         long_name__tmp = cxios_is_defined_scalar_long_name(scalar_hdl%daddr) 
     243        long_name__tmp = cxios_is_defined_scalar_long_name & 
     244      (scalar_hdl%daddr) 
    229245        long_name_ = long_name__tmp 
    230246      ENDIF 
    231247 
    232248      IF (PRESENT(name_)) THEN 
    233         name__tmp = cxios_is_defined_scalar_name(scalar_hdl%daddr) 
     249        name__tmp = cxios_is_defined_scalar_name & 
     250      (scalar_hdl%daddr) 
    234251        name_ = name__tmp 
    235252      ENDIF 
    236253 
    237254      IF (PRESENT(scalar_ref_)) THEN 
    238         scalar_ref__tmp = cxios_is_defined_scalar_scalar_ref(scalar_hdl%daddr) 
     255        scalar_ref__tmp = cxios_is_defined_scalar_scalar_ref & 
     256      (scalar_hdl%daddr) 
    239257        scalar_ref_ = scalar_ref__tmp 
    240258      ENDIF 
    241259 
    242260      IF (PRESENT(standard_name_)) THEN 
    243         standard_name__tmp = cxios_is_defined_scalar_standard_name(scalar_hdl%daddr) 
     261        standard_name__tmp = cxios_is_defined_scalar_standard_name & 
     262      (scalar_hdl%daddr) 
    244263        standard_name_ = standard_name__tmp 
    245264      ENDIF 
    246265 
    247266      IF (PRESENT(unit_)) THEN 
    248         unit__tmp = cxios_is_defined_scalar_unit(scalar_hdl%daddr) 
     267        unit__tmp = cxios_is_defined_scalar_unit & 
     268      (scalar_hdl%daddr) 
    249269        unit_ = unit__tmp 
    250270      ENDIF 
    251271 
    252272      IF (PRESENT(value_)) THEN 
    253         value__tmp = cxios_is_defined_scalar_value(scalar_hdl%daddr) 
     273        value__tmp = cxios_is_defined_scalar_value & 
     274      (scalar_hdl%daddr) 
    254275        value_ = value__tmp 
    255276      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/iscalargroup_attr.F90

    r891 r966  
    2525      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value 
    2626 
    27       CALL xios(get_scalargroup_handle)(scalargroup_id,scalargroup_hdl) 
     27      CALL xios(get_scalargroup_handle) & 
     28      (scalargroup_id,scalargroup_hdl) 
    2829      CALL xios(set_scalargroup_attr_hdl_)   & 
    2930      ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 
    … …  
    6465 
    6566      IF (PRESENT(group_ref_)) THEN 
    66         CALL cxios_set_scalargroup_group_ref(scalargroup_hdl%daddr, group_ref_, len(group_ref_)) 
     67        CALL cxios_set_scalargroup_group_ref & 
     68      (scalargroup_hdl%daddr, group_ref_, len(group_ref_)) 
    6769      ENDIF 
    6870 
    6971      IF (PRESENT(long_name_)) THEN 
    70         CALL cxios_set_scalargroup_long_name(scalargroup_hdl%daddr, long_name_, len(long_name_)) 
     72        CALL cxios_set_scalargroup_long_name & 
     73      (scalargroup_hdl%daddr, long_name_, len(long_name_)) 
    7174      ENDIF 
    7275 
    7376      IF (PRESENT(name_)) THEN 
    74         CALL cxios_set_scalargroup_name(scalargroup_hdl%daddr, name_, len(name_)) 
     77        CALL cxios_set_scalargroup_name & 
     78      (scalargroup_hdl%daddr, name_, len(name_)) 
    7579      ENDIF 
    7680 
    7781      IF (PRESENT(scalar_ref_)) THEN 
    78         CALL cxios_set_scalargroup_scalar_ref(scalargroup_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
     82        CALL cxios_set_scalargroup_scalar_ref & 
     83      (scalargroup_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
    7984      ENDIF 
    8085 
    8186      IF (PRESENT(standard_name_)) THEN 
    82         CALL cxios_set_scalargroup_standard_name(scalargroup_hdl%daddr, standard_name_, len(standard_name_)) 
     87        CALL cxios_set_scalargroup_standard_name & 
     88      (scalargroup_hdl%daddr, standard_name_, len(standard_name_)) 
    8389      ENDIF 
    8490 
    8591      IF (PRESENT(unit_)) THEN 
    86         CALL cxios_set_scalargroup_unit(scalargroup_hdl%daddr, unit_, len(unit_)) 
     92        CALL cxios_set_scalargroup_unit & 
     93      (scalargroup_hdl%daddr, unit_, len(unit_)) 
    8794      ENDIF 
    8895 
    8996      IF (PRESENT(value_)) THEN 
    90         CALL cxios_set_scalargroup_value(scalargroup_hdl%daddr, value_) 
     97        CALL cxios_set_scalargroup_value & 
     98      (scalargroup_hdl%daddr, value_) 
    9199      ENDIF 
    92100 
    … …  
    107115      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value 
    108116 
    109       CALL xios(get_scalargroup_handle)(scalargroup_id,scalargroup_hdl) 
     117      CALL xios(get_scalargroup_handle) & 
     118      (scalargroup_id,scalargroup_hdl) 
    110119      CALL xios(get_scalargroup_attr_hdl_)   & 
    111120      ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 
    … …  
    146155 
    147156      IF (PRESENT(group_ref_)) THEN 
    148         CALL cxios_get_scalargroup_group_ref(scalargroup_hdl%daddr, group_ref_, len(group_ref_)) 
     157        CALL cxios_get_scalargroup_group_ref & 
     158      (scalargroup_hdl%daddr, group_ref_, len(group_ref_)) 
    149159      ENDIF 
    150160 
    151161      IF (PRESENT(long_name_)) THEN 
    152         CALL cxios_get_scalargroup_long_name(scalargroup_hdl%daddr, long_name_, len(long_name_)) 
     162        CALL cxios_get_scalargroup_long_name & 
     163      (scalargroup_hdl%daddr, long_name_, len(long_name_)) 
    153164      ENDIF 
    154165 
    155166      IF (PRESENT(name_)) THEN 
    156         CALL cxios_get_scalargroup_name(scalargroup_hdl%daddr, name_, len(name_)) 
     167        CALL cxios_get_scalargroup_name & 
     168      (scalargroup_hdl%daddr, name_, len(name_)) 
    157169      ENDIF 
    158170 
    159171      IF (PRESENT(scalar_ref_)) THEN 
    160         CALL cxios_get_scalargroup_scalar_ref(scalargroup_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
     172        CALL cxios_get_scalargroup_scalar_ref & 
     173      (scalargroup_hdl%daddr, scalar_ref_, len(scalar_ref_)) 
    161174      ENDIF 
    162175 
    163176      IF (PRESENT(standard_name_)) THEN 
    164         CALL cxios_get_scalargroup_standard_name(scalargroup_hdl%daddr, standard_name_, len(standard_name_)) 
     177        CALL cxios_get_scalargroup_standard_name & 
     178      (scalargroup_hdl%daddr, standard_name_, len(standard_name_)) 
    165179      ENDIF 
    166180 
    167181      IF (PRESENT(unit_)) THEN 
    168         CALL cxios_get_scalargroup_unit(scalargroup_hdl%daddr, unit_, len(unit_)) 
     182        CALL cxios_get_scalargroup_unit & 
     183      (scalargroup_hdl%daddr, unit_, len(unit_)) 
    169184      ENDIF 
    170185 
    171186      IF (PRESENT(value_)) THEN 
    172         CALL cxios_get_scalargroup_value(scalargroup_hdl%daddr, value_) 
     187        CALL cxios_get_scalargroup_value & 
     188      (scalargroup_hdl%daddr, value_) 
    173189      ENDIF 
    174190 
    … …  
    196212      LOGICAL(KIND=C_BOOL) :: value_tmp 
    197213 
    198       CALL xios(get_scalargroup_handle)(scalargroup_id,scalargroup_hdl) 
     214      CALL xios(get_scalargroup_handle) & 
     215      (scalargroup_id,scalargroup_hdl) 
    199216      CALL xios(is_defined_scalargroup_attr_hdl_)   & 
    200217      ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 
    … …  
    249266 
    250267      IF (PRESENT(group_ref_)) THEN 
    251         group_ref__tmp = cxios_is_defined_scalargroup_group_ref(scalargroup_hdl%daddr) 
     268        group_ref__tmp = cxios_is_defined_scalargroup_group_ref & 
     269      (scalargroup_hdl%daddr) 
    252270        group_ref_ = group_ref__tmp 
    253271      ENDIF 
    254272 
    255273      IF (PRESENT(long_name_)) THEN 
    256         long_name__tmp = cxios_is_defined_scalargroup_long_name(scalargroup_hdl%daddr) 
     274        long_name__tmp = cxios_is_defined_scalargroup_long_name & 
     275      (scalargroup_hdl%daddr) 
    257276        long_name_ = long_name__tmp 
    258277      ENDIF 
    259278 
    260279      IF (PRESENT(name_)) THEN 
    261         name__tmp = cxios_is_defined_scalargroup_name(scalargroup_hdl%daddr) 
     280        name__tmp = cxios_is_defined_scalargroup_name & 
     281      (scalargroup_hdl%daddr) 
    262282        name_ = name__tmp 
    263283      ENDIF 
    264284 
    265285      IF (PRESENT(scalar_ref_)) THEN 
    266         scalar_ref__tmp = cxios_is_defined_scalargroup_scalar_ref(scalargroup_hdl%daddr) 
     286        scalar_ref__tmp = cxios_is_defined_scalargroup_scalar_ref & 
     287      (scalargroup_hdl%daddr) 
    267288        scalar_ref_ = scalar_ref__tmp 
    268289      ENDIF 
    269290 
    270291      IF (PRESENT(standard_name_)) THEN 
    271         standard_name__tmp = cxios_is_defined_scalargroup_standard_name(scalargroup_hdl%daddr) 
     292        standard_name__tmp = cxios_is_defined_scalargroup_standard_name & 
     293      (scalargroup_hdl%daddr) 
    272294        standard_name_ = standard_name__tmp 
    273295      ENDIF 
    274296 
    275297      IF (PRESENT(unit_)) THEN 
    276         unit__tmp = cxios_is_defined_scalargroup_unit(scalargroup_hdl%daddr) 
     298        unit__tmp = cxios_is_defined_scalargroup_unit & 
     299      (scalargroup_hdl%daddr) 
    277300        unit_ = unit__tmp 
    278301      ENDIF 
    279302 
    280303      IF (PRESENT(value_)) THEN 
    281         value__tmp = cxios_is_defined_scalargroup_value(scalargroup_hdl%daddr) 
     304        value__tmp = cxios_is_defined_scalargroup_value & 
     305      (scalargroup_hdl%daddr) 
    282306        value_ = value__tmp 
    283307      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/ivariable_attr.F90

    r581 r966  
    2020      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    2121 
    22       CALL xios(get_variable_handle)(variable_id,variable_hdl) 
     22      CALL xios(get_variable_handle) & 
     23      (variable_id,variable_hdl) 
    2324      CALL xios(set_variable_attr_hdl_)   & 
    2425      ( variable_hdl, name, type ) 
    … …  
    4849 
    4950      IF (PRESENT(name_)) THEN 
    50         CALL cxios_set_variable_name(variable_hdl%daddr, name_, len(name_)) 
     51        CALL cxios_set_variable_name & 
     52      (variable_hdl%daddr, name_, len(name_)) 
    5153      ENDIF 
    5254 
    5355      IF (PRESENT(type_)) THEN 
    54         CALL cxios_set_variable_type(variable_hdl%daddr, type_, len(type_)) 
     56        CALL cxios_set_variable_type & 
     57      (variable_hdl%daddr, type_, len(type_)) 
    5558      ENDIF 
    5659 
    … …  
    6669      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    6770 
    68       CALL xios(get_variable_handle)(variable_id,variable_hdl) 
     71      CALL xios(get_variable_handle) & 
     72      (variable_id,variable_hdl) 
    6973      CALL xios(get_variable_attr_hdl_)   & 
    7074      ( variable_hdl, name, type ) 
    … …  
    9498 
    9599      IF (PRESENT(name_)) THEN 
    96         CALL cxios_get_variable_name(variable_hdl%daddr, name_, len(name_)) 
     100        CALL cxios_get_variable_name & 
     101      (variable_hdl%daddr, name_, len(name_)) 
    97102      ENDIF 
    98103 
    99104      IF (PRESENT(type_)) THEN 
    100         CALL cxios_get_variable_type(variable_hdl%daddr, type_, len(type_)) 
     105        CALL cxios_get_variable_type & 
     106      (variable_hdl%daddr, type_, len(type_)) 
    101107      ENDIF 
    102108 
    … …  
    114120      LOGICAL(KIND=C_BOOL) :: type_tmp 
    115121 
    116       CALL xios(get_variable_handle)(variable_id,variable_hdl) 
     122      CALL xios(get_variable_handle) & 
     123      (variable_id,variable_hdl) 
    117124      CALL xios(is_defined_variable_attr_hdl_)   & 
    118125      ( variable_hdl, name, type ) 
    … …  
    146153 
    147154      IF (PRESENT(name_)) THEN 
    148         name__tmp = cxios_is_defined_variable_name(variable_hdl%daddr) 
     155        name__tmp = cxios_is_defined_variable_name & 
     156      (variable_hdl%daddr) 
    149157        name_ = name__tmp 
    150158      ENDIF 
    151159 
    152160      IF (PRESENT(type_)) THEN 
    153         type__tmp = cxios_is_defined_variable_type(variable_hdl%daddr) 
     161        type__tmp = cxios_is_defined_variable_type & 
     162      (variable_hdl%daddr) 
    154163        type_ = type__tmp 
    155164      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/ivariablegroup_attr.F90

    r581 r966  
    2121      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    2222 
    23       CALL xios(get_variablegroup_handle)(variablegroup_id,variablegroup_hdl) 
     23      CALL xios(get_variablegroup_handle) & 
     24      (variablegroup_id,variablegroup_hdl) 
    2425      CALL xios(set_variablegroup_attr_hdl_)   & 
    2526      ( variablegroup_hdl, group_ref, name, type ) 
    … …  
    5152 
    5253      IF (PRESENT(group_ref_)) THEN 
    53         CALL cxios_set_variablegroup_group_ref(variablegroup_hdl%daddr, group_ref_, len(group_ref_)) 
     54        CALL cxios_set_variablegroup_group_ref & 
     55      (variablegroup_hdl%daddr, group_ref_, len(group_ref_)) 
    5456      ENDIF 
    5557 
    5658      IF (PRESENT(name_)) THEN 
    57         CALL cxios_set_variablegroup_name(variablegroup_hdl%daddr, name_, len(name_)) 
     59        CALL cxios_set_variablegroup_name & 
     60      (variablegroup_hdl%daddr, name_, len(name_)) 
    5861      ENDIF 
    5962 
    6063      IF (PRESENT(type_)) THEN 
    61         CALL cxios_set_variablegroup_type(variablegroup_hdl%daddr, type_, len(type_)) 
     64        CALL cxios_set_variablegroup_type & 
     65      (variablegroup_hdl%daddr, type_, len(type_)) 
    6266      ENDIF 
    6367 
    … …  
    7478      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    7579 
    76       CALL xios(get_variablegroup_handle)(variablegroup_id,variablegroup_hdl) 
     80      CALL xios(get_variablegroup_handle) & 
     81      (variablegroup_id,variablegroup_hdl) 
    7782      CALL xios(get_variablegroup_attr_hdl_)   & 
    7883      ( variablegroup_hdl, group_ref, name, type ) 
    … …  
    104109 
    105110      IF (PRESENT(group_ref_)) THEN 
    106         CALL cxios_get_variablegroup_group_ref(variablegroup_hdl%daddr, group_ref_, len(group_ref_)) 
     111        CALL cxios_get_variablegroup_group_ref & 
     112      (variablegroup_hdl%daddr, group_ref_, len(group_ref_)) 
    107113      ENDIF 
    108114 
    109115      IF (PRESENT(name_)) THEN 
    110         CALL cxios_get_variablegroup_name(variablegroup_hdl%daddr, name_, len(name_)) 
     116        CALL cxios_get_variablegroup_name & 
     117      (variablegroup_hdl%daddr, name_, len(name_)) 
    111118      ENDIF 
    112119 
    113120      IF (PRESENT(type_)) THEN 
    114         CALL cxios_get_variablegroup_type(variablegroup_hdl%daddr, type_, len(type_)) 
     121        CALL cxios_get_variablegroup_type & 
     122      (variablegroup_hdl%daddr, type_, len(type_)) 
    115123      ENDIF 
    116124 
    … …  
    130138      LOGICAL(KIND=C_BOOL) :: type_tmp 
    131139 
    132       CALL xios(get_variablegroup_handle)(variablegroup_id,variablegroup_hdl) 
     140      CALL xios(get_variablegroup_handle) & 
     141      (variablegroup_id,variablegroup_hdl) 
    133142      CALL xios(is_defined_variablegroup_attr_hdl_)   & 
    134143      ( variablegroup_hdl, group_ref, name, type ) 
    … …  
    166175 
    167176      IF (PRESENT(group_ref_)) THEN 
    168         group_ref__tmp = cxios_is_defined_variablegroup_group_ref(variablegroup_hdl%daddr) 
     177        group_ref__tmp = cxios_is_defined_variablegroup_group_ref & 
     178      (variablegroup_hdl%daddr) 
    169179        group_ref_ = group_ref__tmp 
    170180      ENDIF 
    171181 
    172182      IF (PRESENT(name_)) THEN 
    173         name__tmp = cxios_is_defined_variablegroup_name(variablegroup_hdl%daddr) 
     183        name__tmp = cxios_is_defined_variablegroup_name & 
     184      (variablegroup_hdl%daddr) 
    174185        name_ = name__tmp 
    175186      ENDIF 
    176187 
    177188      IF (PRESENT(type_)) THEN 
    178         type__tmp = cxios_is_defined_variablegroup_type(variablegroup_hdl%daddr) 
     189        type__tmp = cxios_is_defined_variablegroup_type & 
     190      (variablegroup_hdl%daddr) 
    179191        type_ = type__tmp 
    180192      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/izoom_axis_attr.F90

    r787 r966  
    2020      INTEGER  , OPTIONAL, INTENT(IN) :: n 
    2121 
    22       CALL xios(get_zoom_axis_handle)(zoom_axis_id,zoom_axis_hdl) 
     22      CALL xios(get_zoom_axis_handle) & 
     23      (zoom_axis_id,zoom_axis_hdl) 
    2324      CALL xios(set_zoom_axis_attr_hdl_)   & 
    2425      ( zoom_axis_hdl, begin, n ) 
    … …  
    4849 
    4950      IF (PRESENT(begin_)) THEN 
    50         CALL cxios_set_zoom_axis_begin(zoom_axis_hdl%daddr, begin_) 
     51        CALL cxios_set_zoom_axis_begin & 
     52      (zoom_axis_hdl%daddr, begin_) 
    5153      ENDIF 
    5254 
    5355      IF (PRESENT(n_)) THEN 
    54         CALL cxios_set_zoom_axis_n(zoom_axis_hdl%daddr, n_) 
     56        CALL cxios_set_zoom_axis_n & 
     57      (zoom_axis_hdl%daddr, n_) 
    5558      ENDIF 
    5659 
    … …  
    6669      INTEGER  , OPTIONAL, INTENT(OUT) :: n 
    6770 
    68       CALL xios(get_zoom_axis_handle)(zoom_axis_id,zoom_axis_hdl) 
     71      CALL xios(get_zoom_axis_handle) & 
     72      (zoom_axis_id,zoom_axis_hdl) 
    6973      CALL xios(get_zoom_axis_attr_hdl_)   & 
    7074      ( zoom_axis_hdl, begin, n ) 
    … …  
    9498 
    9599      IF (PRESENT(begin_)) THEN 
    96         CALL cxios_get_zoom_axis_begin(zoom_axis_hdl%daddr, begin_) 
     100        CALL cxios_get_zoom_axis_begin & 
     101      (zoom_axis_hdl%daddr, begin_) 
    97102      ENDIF 
    98103 
    99104      IF (PRESENT(n_)) THEN 
    100         CALL cxios_get_zoom_axis_n(zoom_axis_hdl%daddr, n_) 
     105        CALL cxios_get_zoom_axis_n & 
     106      (zoom_axis_hdl%daddr, n_) 
    101107      ENDIF 
    102108 
    … …  
    114120      LOGICAL(KIND=C_BOOL) :: n_tmp 
    115121 
    116       CALL xios(get_zoom_axis_handle)(zoom_axis_id,zoom_axis_hdl) 
     122      CALL xios(get_zoom_axis_handle) & 
     123      (zoom_axis_id,zoom_axis_hdl) 
    117124      CALL xios(is_defined_zoom_axis_attr_hdl_)   & 
    118125      ( zoom_axis_hdl, begin, n ) 
    … …  
    146153 
    147154      IF (PRESENT(begin_)) THEN 
    148         begin__tmp = cxios_is_defined_zoom_axis_begin(zoom_axis_hdl%daddr) 
     155        begin__tmp = cxios_is_defined_zoom_axis_begin & 
     156      (zoom_axis_hdl%daddr) 
    149157        begin_ = begin__tmp 
    150158      ENDIF 
    151159 
    152160      IF (PRESENT(n_)) THEN 
    153         n__tmp = cxios_is_defined_zoom_axis_n(zoom_axis_hdl%daddr) 
     161        n__tmp = cxios_is_defined_zoom_axis_n & 
     162      (zoom_axis_hdl%daddr) 
    154163        n_ = n__tmp 
    155164      ENDIF 

  • XIOS/trunk/src/interface/fortran_attr/izoom_domain_attr.F90

    r787 r966  
    2222      INTEGER  , OPTIONAL, INTENT(IN) :: nj 
    2323 
    24       CALL xios(get_zoom_domain_handle)(zoom_domain_id,zoom_domain_hdl) 
     24      CALL xios(get_zoom_domain_handle) & 
     25      (zoom_domain_id,zoom_domain_hdl) 
    2526      CALL xios(set_zoom_domain_attr_hdl_)   & 
    2627      ( zoom_domain_hdl, ibegin, jbegin, ni, nj ) 
    … …  
    5455 
    5556      IF (PRESENT(ibegin_)) THEN 
    56         CALL cxios_set_zoom_domain_ibegin(zoom_domain_hdl%daddr, ibegin_) 
     57        CALL cxios_set_zoom_domain_ibegin & 
     58      (zoom_domain_hdl%daddr, ibegin_) 
    5759      ENDIF 
    5860 
    5961      IF (PRESENT(jbegin_)) THEN 
    60         CALL cxios_set_zoom_domain_jbegin(zoom_domain_hdl%daddr, jbegin_) 
     62        CALL cxios_set_zoom_domain_jbegin & 
     63      (zoom_domain_hdl%daddr, jbegin_) 
    6164      ENDIF 
    6265 
    6366      IF (PRESENT(ni_)) THEN 
    64         CALL cxios_set_zoom_domain_ni(zoom_domain_hdl%daddr, ni_) 
     67        CALL cxios_set_zoom_domain_ni & 
     68      (zoom_domain_hdl%daddr, ni_) 
    6569      ENDIF 
    6670 
    6771      IF (PRESENT(nj_)) THEN 
    68         CALL cxios_set_zoom_domain_nj(zoom_domain_hdl%daddr, nj_) 
     72        CALL cxios_set_zoom_domain_nj & 
     73      (zoom_domain_hdl%daddr, nj_) 
    6974      ENDIF 
    7075 
    … …  
    8287      INTEGER  , OPTIONAL, INTENT(OUT) :: nj 
    8388 
    84       CALL xios(get_zoom_domain_handle)(zoom_domain_id,zoom_domain_hdl) 
     89      CALL xios(get_zoom_domain_handle) & 
     90      (zoom_domain_id,zoom_domain_hdl) 
    8591      CALL xios(get_zoom_domain_attr_hdl_)   & 
    8692      ( zoom_domain_hdl, ibegin, jbegin, ni, nj ) 
    … …  
    114120 
    115121      IF (PRESENT(ibegin_)) THEN 
    116         CALL cxios_get_zoom_domain_ibegin(zoom_domain_hdl%daddr, ibegin_) 
     122        CALL cxios_get_zoom_domain_ibegin & 
     123      (zoom_domain_hdl%daddr, ibegin_) 
    117124      ENDIF 
    118125 
    119126      IF (PRESENT(jbegin_)) THEN 
    120         CALL cxios_get_zoom_domain_jbegin(zoom_domain_hdl%daddr, jbegin_) 
     127        CALL cxios_get_zoom_domain_jbegin & 
     128      (zoom_domain_hdl%daddr, jbegin_) 
    121129      ENDIF 
    122130 
    123131      IF (PRESENT(ni_)) THEN 
    124         CALL cxios_get_zoom_domain_ni(zoom_domain_hdl%daddr, ni_) 
     132        CALL cxios_get_zoom_domain_ni & 
     133      (zoom_domain_hdl%daddr, ni_) 
    125134      ENDIF 
    126135 
    127136      IF (PRESENT(nj_)) THEN 
    128         CALL cxios_get_zoom_domain_nj(zoom_domain_hdl%daddr, nj_) 
     137        CALL cxios_get_zoom_domain_nj & 
     138      (zoom_domain_hdl%daddr, nj_) 
    129139      ENDIF 
    130140 
    … …  
    146156      LOGICAL(KIND=C_BOOL) :: nj_tmp 
    147157 
    148       CALL xios(get_zoom_domain_handle)(zoom_domain_id,zoom_domain_hdl) 
     158      CALL xios(get_zoom_domain_handle) & 
     159      (zoom_domain_id,zoom_domain_hdl) 
    149160      CALL xios(is_defined_zoom_domain_attr_hdl_)   & 
    150161      ( zoom_domain_hdl, ibegin, jbegin, ni, nj ) 
    … …  
    186197 
    187198      IF (PRESENT(ibegin_)) THEN 
    188         ibegin__tmp = cxios_is_defined_zoom_domain_ibegin(zoom_domain_hdl%daddr) 
     199        ibegin__tmp = cxios_is_defined_zoom_domain_ibegin & 
     200      (zoom_domain_hdl%daddr) 
    189201        ibegin_ = ibegin__tmp 
    190202      ENDIF 
    191203 
    192204      IF (PRESENT(jbegin_)) THEN 
    193         jbegin__tmp = cxios_is_defined_zoom_domain_jbegin(zoom_domain_hdl%daddr) 
     205        jbegin__tmp = cxios_is_defined_zoom_domain_jbegin & 
     206      (zoom_domain_hdl%daddr) 
    194207        jbegin_ = jbegin__tmp 
    195208      ENDIF 
    196209 
    197210      IF (PRESENT(ni_)) THEN 
    198         ni__tmp = cxios_is_defined_zoom_domain_ni(zoom_domain_hdl%daddr) 
     211        ni__tmp = cxios_is_defined_zoom_domain_ni & 
     212      (zoom_domain_hdl%daddr) 
    199213        ni_ = ni__tmp 
    200214      ENDIF 
    201215 
    202216      IF (PRESENT(nj_)) THEN 
    203         nj__tmp = cxios_is_defined_zoom_domain_nj(zoom_domain_hdl%daddr) 
     217        nj__tmp = cxios_is_defined_zoom_domain_nj & 
     218      (zoom_domain_hdl%daddr) 
    204219        nj_ = nj__tmp 
    205220      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.