~ubuntu-branches/ubuntu/karmic/python-scipy/karmic

« back to all changes in this revision

Viewing changes to Lib/integrate/mach/xerror.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/integrate/mach/xerror.f

 

1

      SUBROUTINE XERROR(MESS,NMESS,L1,L2)

 

2

C

 

3

C     THIS IS A DUMMY XERROR ROUTINE TO PRINT ERROR MESSAGES WITH NMESS

 

4

C     CHARACTERS. L1 AND L2 ARE DUMMY PARAMETERS TO MAKE THIS CALL

 

5

C     COMPATIBLE WITH THE SLATEC XERROR ROUTINE. THIS IS A FORTRAN 77

 

6

C     ROUTINE.

 

7

C

 

8

      CHARACTER*(*) MESS

 

9

      NN=NMESS/70

 

10

      NR=NMESS-70*NN

 

11

      IF(NR.NE.0) NN=NN+1

 

12

      K=1

 

13

      PRINT 900

 

14

  900 FORMAT(/)

 

15

      DO 10 I=1,NN

 

16

        KMIN=MIN0(K+69,NMESS)

 

17

        PRINT *, MESS(K:KMIN)

 

18

        K=K+70

 

19

   10 CONTINUE

 

20

      PRINT 900

 

21

      RETURN

 

22

      END

• Older »

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