schain Files · schainf/Ffiles/get_path.f

Added ToLilBlock class from Roberto

Christianpl - - Load All Authors

File last commit:

r1774:e7bb496918b2


                r1789:2739006ee497

isr_v2

Download file

             get_path.f
        
                    17 lines
            
             | 440 B
            
                | text/x-fortran
            
             |
                FortranFixedLexer
            
             / schainf / Ffiles / get_path.f
          
                    History
                
                 |
                  Source
                 | Raw
                 |Copy content
                 |Copy permalink

        Christianpl
    
Faraday manual processing improved

              r1774
            
            subroutine get_path(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

            ppath = "/home/cportilla/DIR_MADRIGAL/schain"

            cpath = "/schainf/Ffiles/bfmodel/"    

      c      write(*,*) "Len:", L

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

      c      write(*,*) "Len:", fqual_temp

            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

Christianpl Faraday manual processing improved	r1774
		subroutine get_path(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
		ppath = "/home/cportilla/DIR_MADRIGAL/schain"
		cpath = "/schainf/Ffiles/bfmodel/"
		c write(,) "Len:", L
		fqual_temp = TRIM(ppath)//TRIM(cpath)
		c write(,) "Len:", fqual_temp
		return
		end