forked from CEMPD/filesetapi
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathSETDECL.EXT
executable file
·42 lines (38 loc) · 1.21 KB
/
SETDECL.EXT
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
!***********************************************************************
!
! Include file SETDECL.EXT
!
! DESCRIPTION:
! Contains declarations for the FileSetAPI functions
!
! REVISION HISTORY:
! Created 6/02 by C. Seppanen
!
!***************************************************************************
!
! Project Title: FileSetAPI
! File: @(#)$Id$
!
! COPYRIGHT (C) 2004, Environmental Modeling for Policy Development
! All Rights Reserved
!
! Carolina Environmental Program
! University of North Carolina at Chapel Hill
! 137 E. Franklin St., CB# 6116
! Chapel Hill, NC 27599-6116
!
!
! Pathname: $Source$
! Last updated: $Date$
!
!*************************************************************************
!......... Parameters
INTEGER, PARAMETER :: ALLFILES = -1 ! flag: read all files in set
!......... Function declarations
LOGICAL OPENSET ! open a file set
LOGICAL DESCSET ! get file set description
LOGICAL READSET ! read from a file set
LOGICAL WRITESET ! write to a file set
LOGICAL CLOSESET ! close a file set
CHARACTER(16) PROMPTSET ! prompt for file name, then open file set