ITM Grid Service Library: Fortran 90
|
Go to the source code of this file.
Modules | |
module | itm_string |
Functions/Subroutines | |
character(len=2-max(sign(1, intval), 0)+max(&min(abs(intval)/10 **1, 1)*1,&min(abs(intval)/10 **2, 1)*2,&min(abs(intval)/10 **3, 1)*3,&min(abs(intval)/10 **4, 1)*4,&min(abs(intval)/10 **5, 1)*5,&min(abs(intval)/10 **6, 1)*6,&min(abs(intval)/10 **7, 1)*7,&min(abs(intval)/10 **8, 1)*8,&min(abs(intval)/10 **9, 1)*9) | itm_string::itmInt2str (intval) |