| |
| | [No title] (Site not responding. Last check: 2007-09-09) |
 | | Now observe a number of events, reporting each and updating ! |
 | | write (*, *) ' ' write (*, *) ' 50 #18' write (*, *) ' ' aacnts(1:acid_num) = 0 aacnts(18) = 50 call getwgt (aacnts, pseudocount) call rvec_print (acid_num, pseudocount, 'Pseudocounts:') ! |
 | | write (*, *) ' ' write (*, *) ' 49 #20' write (*, *) ' ' aacnts(1:acid_num) = 0 aacnts(20) = 49 call getwgt (aacnts, pseudocount) call rvec_print (acid_num, pseudocount, 'Pseudocounts:') write (*, *) ' ' write (*, *) 'GETWGT_PRB' write (*, *) ' Normal end of GETWGT tests.' stop end |
| orion.math.iastate.edu /burkardt/b_src/getwgt/getwgt_prb.f90 (359 words) |
|