Path: | src/gtdatatmpnam.f90 |
Last Update: | Wed Jul 20 18:22:24 JST 2005 |
GTDataTmpNam - 変数名の自動作成 Copyright (C) GFD Dennou Club, 2000. All rights reserved.
file : | character(len = *), intent(in) |
base : | character(len = *), intent(in) |
result : | character(len = *), intent(out) |
subroutine GTDataTmpNam(file, base, result) implicit none character(len = *), intent(in):: file character(len = *), intent(in):: base character(len = *), intent(out):: result type(GT_VARIABLE):: var integer:: n logical:: failed character(len = string):: fnam, vnam, vnambase continue if (file == "") then fnam = "gtool.nc" else fnam = file endif if (base == "") then vnambase = "tmp" else vnambase = base endif n = 0 do n = n + 1 ! compatibility note (2001-12-02, TOYODA Eizi) ! dc_string の toChar を使いたいのだが FQS Fortran が失敗する write(unit=vnam, fmt="(i32)") n vnam = trim(vnambase) // trim(adjustl(vnam)) result = UrlMerge(file=fnam, var=vnam) call Open(var, result, writable=.FALSE., err=failed) if (failed) return call Close(var) enddo end subroutine