Ignore:
Timestamp:
12/13/07 17:22:35 (17 years ago)
Author:
pinsard
Message:

modification of headers : mainly blanks around = sign for keywords in declaration of function and pro

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/SRC/ReadWrite/write_ncdf.pro

    r312 r327  
    3232; cf details plus bas... 
    3333; 
    34 ;---------------------------------------------------------------------------------------------- 
    35  
    36 pro writenc_unlimdim_update, dnames_imposed, unl_imposed, fmtbase, nviv, iidp1st, nn, dst, iid, SUPERTABU=supertab                $    
    37                            , DIMSIZESU=dimsizes, UNLIMTABAU=unlimtaba, UNLIMAU=unlima                                             $ 
    38                            , DIMIDASU=dimidas, NDIMTOTU=ndimtot, DNAMOSSU=dnamoss, DNAMAU=dnama,IMPOSE_DNM_UNLU= impose_dnm_unl  
     34;- 
     35pro writenc_unlimdim_update, dnames_imposed, unl_imposed, fmtbase, nviv $ 
     36    , iidp1st, nn, dst, iid, SUPERTABU=supertab $ 
     37    , DIMSIZESU=dimsizes, UNLIMTABAU=unlimtaba, UNLIMAU=unlima $ 
     38    , DIMIDASU=dimidas, NDIMTOTU=ndimtot, DNAMOSSU=dnamoss, DNAMAU=dnama $ 
     39    , IMPOSE_DNM_UNLU=impose_dnm_unl  
    3940 
    4041 
     
    350351 
    351352 
    352 ;---------------------------------------------------------------------------------------------- 
    353 ; 
    354 ; 
     353; 
     354;+ 
    355355; SUBROUTINE (2)/(3) :  
    356 ; 
    357356; 
    358357; on remplace la 4ieme structure de structa par une liste chainee afin 
     
    362361; est pas active, i.e. cas par defaut) 
    363362; 
    364 ;---------------------------------------------------------------------------------------------- 
    365  
     363;- 
    366364function writenc_str2strlc, structa 
    367365 
     
    431429end 
    432430 
    433 ;---------------------------------------------------------------------------------------------- 
    434  
    435  
    436 ;---------------------------------------------------------------------------------------------- 
    437 ; 
     431;+ 
    438432; 
    439433; SUBROUTINE (3)/(3) :  
     
    446440; 
    447441; 
    448 ;---------------------------------------------------------------------------------------------- 
    449  
     442;- 
    450443function writenc_strlc2str, strwlist 
    451444 
     
    623616;  
    624617; @todo clem  
    625 ;- *  
    626 ; 
    627 ;------------------------------------------------------------ 
    628  
     618; 
     619;-  
    629620pro write_ncdf, var01,var02,var03,var04,var05,var06,var07,var08,var09,var10    $ ; RQ : if more than 30 variables is needed, simply add 
    630621               ,var11,var12,var13,var14,var15,var16,var17,var18,var19,var20    $ ;      var31,var32 etc... here and change nmaxvv to 32 ... 
     
    634625               ,VARNAME=namevquick                                             $ 
    635626                                                                               $ 
    636                ,NOT_SDISV = flag1                                              $ ; mots cles non utiles sauf cas particuliers... 
    637                ,NOT_OUASSALU = flag2                                           $ 
    638                ,OKNAN = oknan 
     627               ,NOT_SDISV=flag1                                              $ ; mots cles non utiles sauf cas particuliers... 
     628               ,NOT_OUASSALU=flag2                                           $ 
     629               ,OKNAN=oknan 
    639630 
    640631; 
Note: See TracChangeset for help on using the changeset viewer.