← Back to branch summary

~sdsu-asklib-developers/sdsu-asklib/trunk

« back to all changes in this revision

Viewing changes to iskfil.for:201

  • Committer: C.W.Holeman II
  • Date: 2010-11-04 19:17:28 UTC
  • Revision ID: cwhii@road-20101104191728-bia7sobaloh9px62
Tags: 2.0-2
SDSU_AskLib version 2.02,  November 1984 (VAX-106) from DECUS VAX Library Collection 3, VAX-LIB-3 xracted from ftp://129.69.211.2/pub/cm/dec/vax/sw/magtapes/vaxlib3.tap.gz

Show diffs side-by-side

added added

removed removed

Lines of Context:
iskfil.for:201
 
1
*       26-Mar-84       C.W.Holeman                     sdsu_ask_fn_file
 
2
 
 
3
*------------------------------------------------------------------------------
 
4
        integer function sdsu_ask_fn_file (prompt,
 
5
     .          default_allowed, file, length_of_file)
 
6
*------------------------------------------------------------------------------
 
7
 
 
8
        implicit none
 
9
 
 
10
        character*(*)   prompt          !in: prompt
 
11
        character*(*)   default_allowed !in:
 
12
        character*(*)   file            !in: file name
 
13
        integer         length_of_file  !in:
 
14
 
 
15
*_____Functions:
 
16
 
 
17
        integer                 sdsu_ask_file
 
18
 
 
19
*------------------------------------------------------------------------------
 
20
        sdsu_ask_fn_file = sdsu_ask_file (prompt,
 
21
     .          default_allowed, file, length_of_file)
 
22
        return
 
23
        end