Parent Directory
| 
Revision Log
| 
Patch
| revision 21 by guez, Fri Apr 18 14:45:53 2008 UTC | revision 22 by guez, Fri Jul 31 15:18:47 2009 UTC | |
|---|---|---|
| # | Line 2 program test_disvert | Line 2 program test_disvert |
| 2 | ||
| 3 | use dimens_m, only: llm | use dimens_m, only: llm |
| 4 | use comvert, only: pa, disvert, ap, bp, preff | use comvert, only: pa, disvert, ap, bp, preff |
| use comconst, only: initialize | ||
| 5 | use new_unit_m, only: new_unit | use new_unit_m, only: new_unit |
| 6 | ||
| 7 | implicit none | implicit none |
| # | Line 14 program test_disvert | Line 13 program test_disvert |
| 13 | !--------------------- | !--------------------- |
| 14 | ||
| 15 | print *, "llm = ", llm | print *, "llm = ", llm |
| call initialize | ||
| 16 | pa = 5e4 | pa = 5e4 |
| 17 | call disvert | call disvert |
| 18 | sigma = ap / pa + bp | sigma = ap / pa + bp |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |