DATABASES/madrigal Files · source/madf/geolib/basis.h

Fix bug in upload data

jespinoza - - Load All Authors

File last commit:

r0:b84e1135c2c4


                r11:4a6fe1f2abe6

Download file

             basis.h
        
                    18 lines
            
             | 582 B
            
                | text/x-c
            
             |
                CLexer
            
             / source / madf / geolib / basis.h
          
                    History
                
                 |
                  Source
                 | Raw
                 |Copy content
                 |Copy permalink

        jespinoza
    
Initial

              r0
            
      C     Written by Shunrong Zhang

      C     Imported into Madrigal from modelRecovery/fullAnalytic/

      C     basis.h on 10/21/2005 - Was revision 1.1.1.1

      C

      C     $Id: basis.h 3304 2011-01-17 15:25:59Z brideout $

      C

      C     .. Parameters ..

      C

            INTEGER MDIM,NDIM,KMAX,KNOTSMAX

            PARAMETER (MDIM=8000,NDIM=4000,KMAX=4,KNOTSMAX=NDIM+KMAX,

           * LA = NDIM*MDIM+4*NDIM+5*MDIM+NDIM**2+MDIM*(MDIM+3)/2+4*MDIM,

           * LI = 2*NDIM*MDIM)

      C

            COMMON /ARRAYS/IWORK,WORK

            DOUBLE PRECISION WORK(9000000)

            INTEGER IWORK(900000)

      c      DOUBLE PRECISION WORK(LA)

      c      INTEGER IWORK(LI)

	Site-wide shortcuts
/	Use quick search box
g h	Goto home page
g g	Goto my private gists page
g G	Goto my public gists page
g 0-9	Goto bookmarked items from 0-9
n r	New repository page
n g	New gist page

	Repositories
g s	Goto summary page
g c	Goto changelog page
g f	Goto files page
g F	Goto files page with file search activated
g p	Goto pull requests page
g o	Goto repository settings
g O	Goto repository access permissions settings
t s	Toggle sidebar on some pages

jespinoza Initial	r0	C Written by Shunrong Zhang
		C Imported into Madrigal from modelRecovery/fullAnalytic/
		C basis.h on 10/21/2005 - Was revision 1.1.1.1
		C
		C $Id: basis.h 3304 2011-01-17 15:25:59Z brideout $
		C
		C .. Parameters ..
		C
		INTEGER MDIM,NDIM,KMAX,KNOTSMAX
		PARAMETER (MDIM=8000,NDIM=4000,KMAX=4,KNOTSMAX=NDIM+KMAX,
		* LA = NDIMMDIM+4NDIM+5MDIM+NDIM2+MDIM(MDIM+3)/2+4*MDIM,
		* LI = 2NDIMMDIM)
		C
		COMMON /ARRAYS/IWORK,WORK
		DOUBLE PRECISION WORK(9000000)
		INTEGER IWORK(900000)
		c DOUBLE PRECISION WORK(LA)
		c INTEGER IWORK(LI)