- call reada(weightcard,"DTRISS",dtriss,1.0D0)
- call reada(weightcard,"ATRISS",atriss,0.3D0)
- call reada(weightcard,"BTRISS",btriss,0.02D0)
- call reada(weightcard,"CTRISS",ctriss,1.0D0)
+ call reada(weightcard,"ATRISS",atriss,0.301D0)
+ call reada(weightcard,"BTRISS",btriss,0.021D0)
+ call reada(weightcard,"CTRISS",ctriss,1.001D0)
+ call reada(weightcard,"DTRISS",dtriss,1.001D0)
+ write (iout,*) "ATRISS=", atriss
+ write (iout,*) "BTRISS=", btriss
+ write (iout,*) "CTRISS=", ctriss
+ write (iout,*) "DTRISS=", dtriss