File: allow_implicit_interface.f90

package info (click to toggle)
lfortran 0.58.0-3
  • links: PTS, VCS
  • area: main
  • in suites:
  • size: 54,508 kB
  • sloc: cpp: 162,179; f90: 68,251; python: 17,476; ansic: 6,278; yacc: 2,334; sh: 1,317; fortran: 892; makefile: 34; javascript: 15
file content (11 lines) | stat: -rw-r--r-- 285 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
 
double precision function prho()
double precision zero, one, two, b, x, y, u, six
data zero, one, two, six /0.0d0, 1.0d0, 2.0d0, 6.0d0/

prho = u / exp(y / two) + alnorm(x, .true.)
external dgetrf
call dgetrf(x, y, u)
if (prho < zero) prho = zero
if (prho > one) prho = one
return
end