← Back to branch summary

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

« back to all changes in this revision

Viewing changes to iskstr.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:
iskstr.for:201
 
1
*       22-Mar-84       C.W.Holeman                     sdsu_ask_fn_string.for
 
2
 
 
3
*------------------------------------------------------------------------------
 
4
        integer function sdsu_ask_fn_string (prompt_string,
 
5
     .          minimum_len,
 
6
     .          maximum_len,
 
7
     .          default_allowed, string, length_of_string)
 
8
*------------------------------------------------------------------------------
 
9
 
 
10
        implicit none
 
11
 
 
12
        character*(*)   prompt_string   !in: string to prompt user for input with
 
13
        integer         minimum_len     !in: minimum length of valid input
 
14
        integer         maximum_len     !in: maximum length of valid input
 
15
        character*(*)   default_allowed !in:
 
16
        character*(*)    string         !in: default string if allowed
 
17
*                                       out: user's validated answer
 
18
        integer         length_of_string        !in: length of default string
 
19
*                                       out: length of returned string
 
20
 
 
21
*-----Functions:
 
22
 
 
23
        integer sdsu_ask_string
 
24
 
 
25
*------------------------------------------------------------------------------
 
26
        sdsu_ask_fn_string = sdsu_ask_string (prompt_string,
 
27
     .          minimum_len,
 
28
     .          maximum_len,
 
29
     .          default_allowed, string, length_of_string)
 
30
        return
 
31
        end