00001 *
00002 * BoX-FORMATs for nice and flexible outputs
00003 CHARACTER*80 bxope,bxclo,bxtxt,bxl1i,bxl1f,bxl2f,bxl1g,bxl2g,bxl1v
00004 PARAMETER (
00005 $ bxope ='(
00006 $ bxtxt ='(1x,1h*, a48,25x, 1h*)',
00007 $ bxl1i ='(1x,1h*,i17, 16x, a20,a12,a7, 1x,1h*)',
00008 $ bxl1f ='(1x,1h*,f17.8, 16x, a20,a12,a7, 1x,1h*)',
00009 $ bxl2f ='(1x,1h*,f17.8, 4h +-, f11.8, 1x, a20,a12,a7, 1x,1h*)',
00010 $ bxl1g ='(1x,1h*,g17.8, 16x, a20,a12,a7, 1x,1h*)',
00011 $ bxl2g ='(1x,1h*,g17.8, 4h +-, f11.8, 1x, a20,a12,a7, 1x,1h*)',
00012 $ bxl1v ='(1x,1h*, a20, f10.2, a23, 20x, 1h*)',
00013 $ bxclo ='(1x,15(5h*****)/ )'
00014 $ )
00015 *