DATABASES/madrigal Files · source/madf/geolib/testISRIM.f

Fix bug in upload data

jespinoza - - Load All Authors

File last commit:

r0:b84e1135c2c4


                r11:4a6fe1f2abe6

Download file

             testISRIM.f
        
                    29 lines
            
             | 751 B
            
                | text/x-fortran
            
             |
                FortranFixedLexer
            
             / source / madf / geolib / testISRIM.f
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

      C f77 -o testISRIM testISRIM.f tb3D4D.f isrim.f basis.f

      C

            PROGRAM TESTISRIM

      C     Written by Shunrong Zhang

      C     Imported into Madrigal from modelRecovery/fullAnalytic/

      C     testISRIM.f on 10/21/2005 - Was revision 1.1

      C

      C     Modified to remove user input - kinst and ipar hard-coded

      C

      C     $Id: testISRIM.f 3304 2011-01-17 15:25:59Z brideout $

      C

      C     test isrim

      C

      C     .. Local Scalars ..

            DOUBLE PRECISION OUTPUT(10),Y,DAYNO,LT,Z,LA,F107,AP

      	dayno=123d0

      	lt=12d0

      	z=300d0

      	f107=135d0

      	ap=15d0

      	kinst=31

      	ipar=1

      	la=55d0

              CALL ISRIM(KINST,DAYNO,LT,Z,LA,F107,AP,IP,OUTPUT)

              Y = OUTPUT(1)

              IF (IP.EQ.1) Y = DLOG10(DABS(OUTPUT(1)))

      	write(*,*)KINST,DAYNO,LT,Z,LA,F107,AP,IP,output(1),output(4)

            STOP

            END

	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

				C f77 -o testISRIM testISRIM.f tb3D4D.f isrim.f basis.f
				C
				PROGRAM TESTISRIM
				C Written by Shunrong Zhang
				C Imported into Madrigal from modelRecovery/fullAnalytic/
				C testISRIM.f on 10/21/2005 - Was revision 1.1
				C
				C Modified to remove user input - kinst and ipar hard-coded
				C
				C $Id: testISRIM.f 3304 2011-01-17 15:25:59Z brideout $
				C
				C test isrim
				C
				C .. Local Scalars ..
				DOUBLE PRECISION OUTPUT(10),Y,DAYNO,LT,Z,LA,F107,AP
				dayno=123d0
				lt=12d0
				z=300d0
				f107=135d0
				ap=15d0
				kinst=31
				ipar=1
				la=55d0
				CALL ISRIM(KINST,DAYNO,LT,Z,LA,F107,AP,IP,OUTPUT)
				Y = OUTPUT(1)
				IF (IP.EQ.1) Y = DLOG10(DABS(OUTPUT(1)))
				write(,)KINST,DAYNO,LT,Z,LA,F107,AP,IP,output(1),output(4)
				STOP
				END