File: foof.f90

package info (click to toggle)
libtool 2.2.6b-2
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 10,740 kB
  • ctags: 1,236
  • sloc: sh: 25,677; ansic: 5,052; makefile: 1,149; pascal: 131; cpp: 121; fortran: 37; f90: 37
file content (11 lines) | stat: -rw-r--r-- 341 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
 
! 
! This program is free software; you can redistribute it and/or
! modify it under the terms of the GNU General Public License
! as published by the Free Software Foundation; either version 2
! of the License, or (at your option) any later version.
! 
subroutine fsub(arg,res)
  write(*,*) 'fsub called'
  call fsubf(arg,res)
  return
end