~ubuntu-branches/ubuntu/lucid/pdl/lucid

« back to all changes in this revision

Viewing changes to Lib/Slatec/slatec/j4save.f

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

Lib/Slatec/slatec/j4save.f

 

1

*DECK J4SAVE

 

2

      FUNCTION J4SAVE (IWHICH, IVALUE, ISET)

 

3

C***BEGIN PROLOGUE  J4SAVE

 

4

C***SUBSIDIARY

 

5

C***PURPOSE  Save or recall global variables needed by error

 

6

C            handling routines.

 

7

C***LIBRARY   SLATEC (XERROR)

 

8

C***TYPE      INTEGER (J4SAVE-I)

 

9

C***KEYWORDS  ERROR MESSAGES, ERROR NUMBER, RECALL, SAVE, XERROR

 

10

C***AUTHOR  Jones, R. E., (SNLA)

 

11

C***DESCRIPTION

 

12

C

 

13

C     Abstract

 

14

C        J4SAVE saves and recalls several global variables needed

 

15

C        by the library error handling routines.

 

16

C

 

17

C     Description of Parameters

 

18

C      --Input--

 

19

C        IWHICH - Index of item desired.

 

20

C                = 1 Refers to current error number.

 

21

C                = 2 Refers to current error control flag.

 

22

C                = 3 Refers to current unit number to which error

 

23

C                    messages are to be sent.  (0 means use standard.)

 

24

C                = 4 Refers to the maximum number of times any

 

25

C                     message is to be printed (as set by XERMAX).

 

26

C                = 5 Refers to the total number of units to which

 

27

C                     each error message is to be written.

 

28

C                = 6 Refers to the 2nd unit for error messages

 

29

C                = 7 Refers to the 3rd unit for error messages

 

30

C                = 8 Refers to the 4th unit for error messages

 

31

C                = 9 Refers to the 5th unit for error messages

 

32

C        IVALUE - The value to be set for the IWHICH-th parameter,

 

33

C                 if ISET is .TRUE. .

 

34

C        ISET   - If ISET=.TRUE., the IWHICH-th parameter will BE

 

35

C                 given the value, IVALUE.  If ISET=.FALSE., the

 

36

C                 IWHICH-th parameter will be unchanged, and IVALUE

 

37

C                 is a dummy parameter.

 

38

C      --Output--

 

39

C        The (old) value of the IWHICH-th parameter will be returned

 

40

C        in the function value, J4SAVE.

 

41

C

 

42

C***SEE ALSO  XERMSG

 

43

C***REFERENCES  R. E. Jones and D. K. Kahaner, XERROR, the SLATEC

 

44

C                 Error-handling Package, SAND82-0800, Sandia

 

45

C                 Laboratories, 1982.

 

46

C***ROUTINES CALLED  (NONE)

 

47

C***REVISION HISTORY  (YYMMDD)

 

48

C   790801  DATE WRITTEN

 

49

C   891214  Prologue converted to Version 4.0 format.  (BAB)

 

50

C   900205  Minor modifications to prologue.  (WRB)

 

51

C   900402  Added TYPE section.  (WRB)

 

52

C   910411  Added KEYWORDS section.  (WRB)

 

53

C   920501  Reformatted the REFERENCES section.  (WRB)

 

54

C***END PROLOGUE  J4SAVE

 

55

      LOGICAL ISET

 

56

      INTEGER IPARAM(9)

 

57

      SAVE IPARAM

 

58

      DATA IPARAM(1),IPARAM(2),IPARAM(3),IPARAM(4)/0,2,0,10/

 

59

      DATA IPARAM(5)/1/

 

60

      DATA IPARAM(6),IPARAM(7),IPARAM(8),IPARAM(9)/0,0,0,0/

 

61

C***FIRST EXECUTABLE STATEMENT  J4SAVE

 

62

      J4SAVE = IPARAM(IWHICH)

 

63

      IF (ISET) IPARAM(IWHICH) = IVALUE

 

64

      RETURN

 

65

      END

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1