schain Files · schainf/fit_acf/get_path.f

add Ffiles

rflores - - Load All Authors

File last commit:

r1601:3b2826fe0d97


                r1601:3b2826fe0d97

Download file

             get_path.f
        
                    38 lines
            
             | 755 B
            
                | text/x-fortran
            
             |
                FortranFixedLexer
            
             / schainf / fit_acf / get_path.f
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

            subroutine get_len(the_len,fqual_temp)

      c

      c      create table of magnetic field components

      c

      c      character*47 L

            character(1024) :: fqual_temp

            character(512) :: ppath

            character(512) :: cpath

            integer the_len

            ppath = '/home/roberto'

            cpath = '/acf2_Wrapper/jlib26feb2001'

            fqual_temp = TRIM(ppath)//TRIM(cpath)

            the_len = LEN_TRIM(fqual_temp)

            return

            end

            subroutine get_path(fqual,the_len)

      c

      c      create table of magnetic field components

      c

      c      character*47 L

            integer the_len

            character(the_len) :: fqual

            character(1024) :: fqual_temp

            call get_len(the_len,fqual_temp)

            fqual = TRIM(fqual_temp)

            write(*,*) "Done"

            return

            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


				subroutine get_len(the_len,fqual_temp)
				c
				c create table of magnetic field components
				c
				c character*47 L

				character(1024) :: fqual_temp
				character(512) :: ppath
				character(512) :: cpath
				integer the_len

				ppath = '/home/roberto'
				cpath = '/acf2_Wrapper/jlib26feb2001'

				fqual_temp = TRIM(ppath)//TRIM(cpath)
				the_len = LEN_TRIM(fqual_temp)

				return
				end

				subroutine get_path(fqual,the_len)
				c
				c create table of magnetic field components
				c
				c character*47 L

				integer the_len
				character(the_len) :: fqual
				character(1024) :: fqual_temp

				call get_len(the_len,fqual_temp)
				fqual = TRIM(fqual_temp)
				write(,) "Done"

				return
				end