include_zfill.f90 Source File

  1. include_zfill.f90

Contents

Source Code

include_zfill.f90

Source Code

      IF (LEN(str) >= l) THEN
         res = str
      ELSE
         res = REPEAT('0', l - LEN(str)) // str
      END IF