Rick- Tom has updated our distribution with the latest version of FRNTDISP. In addition to the changes for the new formats, I also added some mccodeset stuff which involved some other code changes. As I mentioned in my last note, this is available from our addenda page in the mcupdate.tar.Z file. We don't usually announce changes unless they are major. If you find a problem with one of our routines, check the addenda page first to see if it has already been fixed. (http://www.unidata.ucar.edu/packages/mcidas/mcx/addenda.html) The version that is in that file does not have the library routines mapdraw and u0putftime. mapdraw has not changed from the XRD version and u0putftime was updated to output ccyyddd format. (changed mccydtoyd calls to mcydtocyd calls) I've included the new u0putftime.for after this message. This should only be used for 7.5. Let me know if you have any questions/problems. Don ************************************************************* Don Murray UCAR Unidata Program address@hidden P.O. Box 3000 (303) 497-8628 Boulder, CO 80307 ************************************************************* Unidata WWW Server http://www.unidata.ucar.edu/ McIDAS Demonstration Machine http://mcdemo.unidata.ucar.edu/ ************************************************************* *$ Name: *$ u0putftime - put the "frame" time for a particular frame *$ *$ Interface: *$ integer function *$ u0putftime(integer iframe, integer iday, integer itime) *$ *$ Input: *$ iframe - Number of the frame whose directory is being written. *$ iday - day to put in frame directory (yyddd or ccyyddd format) *$ itime - time to put in frame directory (hhmmss format) *$ *$ Input and Output: *$ none *$ *$ Output: *$ *$ Return values: *$ -2 = couldn't convert date to correct format *$ -1 = error updating date/time *$ 0 = successfully updated date/time in frame directory *$ 1 = frame time not updated because there is an image time in it already *$ integer function u0putftime(iframe, iday, itime) implicit none integer fday integer iframe integer iday integer itime integer ifdir(64) integer mcydtocyd ! <<<<< UPC mod 981208 >>>>> integer ret u0putftime = -1 call getfrm(iframe, ifdir) c Update the Frame directory with the day and time of the data if this c frame does not have one associated with it and set type to 3 (misc c imagery)) if (ifdir(1) .eq. -1 .or. ifdir(1) .eq. 1 .or. & ifdir(1) .eq. 3 .or. ifdir(1) .eq. 11 .or. & ifdir(2) .eq. 0 ) then ifdir(1) = 3 ifdir(3) = itime ret = mcydtocyd(iday, fday) ! convert the day to ccyyddd format if (ret .lt. 0) then u0putftime = -2 goto 10 endif ifdir(2) = fday call putfrm(iframe,ifdir) u0putftime = 0 else ! keep image time in frame u0putftime = 1 endif 10 return end
NOTE: All email exchanges with Unidata User Support are recorded in the Unidata inquiry tracking system and then made publicly available through the web. If you do not want to have your interactions made available in this way, you must let us know in each email you send to us.