i need a script in fortran in order to convert files from xyz and pdb into other form

[sarabante]

hello there .
i need a Fortran script in order to convert a pdb file to to this form below . thank you in advance

1870
43.2400 11.9900 -6.9150 2.9000
43.8880 10.8620 -6.2310 3.4000
44.7220 10.0510 -7.2400 3.4000
44.7910 11.3780 -5.0940 2.9000
44.6330 10.9920 -3.9370 2.8000
45.7140 12.2440 -5.4970 2.9000
46.6890 12.8150 -4.5610 3.4000
47.6400 13.7320 -5.3590 3.4000
46.0420 13.6010 -3.4110 2.9000
46.0300 13.1410 -2.2670 2.8000
47.0060 13.8200 -6.7600 3.4000
46.0560 12.6150 -6.8820 3.4000
...

 

[xwb]

What have you done so far? If you have a problem in your code, we can help you figure out what it is.