← Back to branch summary

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

« back to all changes in this revision

Viewing changes to iskint.for.201

  • Committer: cwhii_hcnual at julianlocals
  • Date: 2014-10-24 04:30:41 UTC
  • Revision ID: cwhii_hcnual@julianlocals.com-20141024043041-yr2bth3f9ej9292s
Change all x.y:nnn to x.y.nnn as that is the alternate for x.y;nnn where nnn is the version number, correcting the x.y:nnn that occured on launchpad revision 1 of the file names.

Show diffs side-by-side

added added

removed removed

Lines of Context:
iskint.for.201
 
1
*       29-Mar-84       C.W.Holeman                     sdsu_ask_fn_integer.for
 
2
 
 
3
*------------------------------------------------------------------------------
 
4
        integer function sdsu_ask_fn_integer
 
5
     .          (prompt, minimum, maximum, default_allowed, value)
 
6
*------------------------------------------------------------------------------
 
7
 
 
8
        implicit none
 
9
 
 
10
        character*(*)   prompt  !in:string to prompt user for input with
 
11
        integer         minimum         !in: minimum valid integer
 
12
        integer         maximum         !in: maximum valid integer
 
13
        character*(*)   default_allowed !in:
 
14
        integer         value           !in: default value if allowed
 
15
*                                       out: user's validated answer
 
16
 
 
17
*-----Functions:
 
18
 
 
19
        integer sdsu_ask_integer
 
20
 
 
21
*------------------------------------------------------------------------------
 
22
        sdsu_ask_fn_integer = sdsu_ask_integer
 
23
     .          (prompt, minimum, maximum, default_allowed, value)
 
24
        return
 
25
        end