What is the point of this?
As far as I can see if there are errors then this creates a format structure, yet at no point is this reference 201 used anywhere?!
if(ierror /= 0) then 201 format(7f10.5,2i2) endif
UPDATE: I should state that I have only seen the
format command used in reference to the
write command and there is no
write command in this subroutine at all. I am just concerned that I am missing another nuance of the
format command, before I just delete this pointless selection.