File: nvesput48.m4

package info (click to toggle)
netcdf-fortran 4.5.3%2Bds-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 7,456 kB
  • sloc: fortran: 25,848; f90: 20,793; sh: 4,609; ansic: 1,729; makefile: 585; pascal: 292; xml: 173
file content (15 lines) | stat: -rw-r--r-- 614 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
   function NF90_1FUN`'(ncid, varid, values, start)
     integer,                         intent( in) :: ncid, varid
     TYPE, intent(IN_OR_OUT) :: values
     integer, dimension(:), optional, intent( in) :: start
     integer                                      :: NF90_1FUN
 
     integer, dimension(nf90_max_var_dims) :: localIndex
     integer                               :: counter
 
     ! Set local arguments to default values
     localIndex(:) = 1
     if(present(start)) localIndex(:size(start)) = start(:)
 
     NF90_1FUN = NF_1FUN`'(ncid, varid, localIndex, int(values))
   end function NF90_1FUN