source: PSPA/parmelaPSPA/trunk/dpout.f @ 418

Last change on this file since 418 was 12, checked in by lemeur, 12 years ago

parmela pspa initial

File size: 641 bytes
Line 
1      subroutine dpout(ne)
2c------------------------------------------------------------------------
3c
4      include 'param_sz.h'
5      include 'coordcom.h'
6      include 'ncordscom.h'
7      include 'syscom.h'
8      include 'ucom.h'
9c
10c-----------------------------------------------------------------------
11c*
12      i=el(4,ne)
13      open(unit=ndpout,file='dpout',access='sequential',
14     *     status='new',form='formatted')
15      write(ndpout,'(6(1x,e20.14),1x,e15.9)')((cord(i,j),i=1,6),
16     *      weight(j),j=1,ngood)
17      close(ndpout)
18      return
19      end
20c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*
Note: See TracBrowser for help on using the repository browser.