Update init_routines.f

Author: ssmahto

Routing/SourceCode/init_routines.f

@@ -36,8 +36,8 @@ SUBROUTINE CREATE_VIC_NAMES( JLOC, ILOC, EXTEN, CLEN, DPREC )
       CHARACTER*20 EXTEN
       REAL JLOC, ILOC
       INTEGER NSPACE, CLEN, CLEN_OLD, DPREC, I
-      WRITE(JICHAR(1),'(F10.5)')JLOC
-      WRITE(JICHAR(2),'(F10.5)')ILOC
+      WRITE(JICHAR(1),'(F10.5)')ILOC
+      WRITE(JICHAR(2),'(F10.5)')JLOC
       CLEN_OLD=1
       DO I=1,2
          NSPACE=1