Revision history [back]

Thank you for your quick response, after using the Converter option and compiling I got the below error..

-C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(23): error #7012: The module file cannot be read. Its format requires a more recent F90 compiler. [PSSDM] USE PSSDM -- C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(23): error #7012: The module file cannot be read. Its format requires a more recent F90 compiler. [PSSDM] USE PSSDM ! this is the global declaration ----------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(44): error #6404: This name does not have a type, and must have an explicit type. [GETMODE] IF (GETMODE() == 8) THEN ----------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(66): error #6404: This name does not have a type, and must have an explicit type. [GETSTRTIN] J = GETSTRTIN(1,SLOT) ! starting CON index ----------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(74): error #6404: This name does not have a type, and must have an explicit type. [GETNUMTRM] IB = GETNUMTRM(MC) ! bus sequence number -----------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(88): error #6404: This name does not have a type, and must have an explicit type. [GETMIDTRM] IF (GETMIDTRM()) RETURN ! model is not ready for Mid-term simulation -------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(88): error #6341: A logical data type is required in this context. [GETMIDTRM] IF (GETMIDTRM()) RETURN ! model is not ready for Mid-term simulation -------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(93): error #6404: This name does not have a type, and must have an explicit type. [GETVREF] VINP = GETVREF(MC) - GETETERM(MC) + GETVOTHSG(MC) + GETVUEL(MC) + ----------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(93): error #6404: This name does not have a type, and must have an explicit type. [GETETERM] VINP = GETVREF(MC) - GETETERM(MC) + GETVOTHSG(MC) + GETVUEL(MC) + -------------------------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(93): error #6404: This name does not have a type, and must have an explicit type. [GETVOTHSG] VINP = GETVREF(MC) - GETETERM(MC) + GETVOTHSG(MC) + GETVUEL(MC) + -----------------------------------------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(93): error #6404: This name does not have a type, and must have an explicit type. [GETVUEL] VINP = GETVREF(MC) - GETETERM(MC) + GETVOTHSG(MC) + GETVUEL(MC) + ----------------------------------------------------------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(94): error #6404: This name does not have a type, and must have an explicit type. [GETVOEL] & GETVOEL(MC) ----------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(95): error #6404: This name does not have a type, and must have an explicit type. [LDLGMODE2] VOUT = LDLGMODE2(1.0, ! lead-lag block gain ----------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(104): error #6404: This name does not have a type, and must have an explicit type. [NWLAGMODE2] VOUT = NWLAGMODE2(GETCON(J+2), ! exciter gain ----------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(119): error #6341: A logical data type is required in this context. [GETMIDTRM] IF (GETMIDTRM()) RETURN ! model is not ready for Mid-term simulation -------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(124): error #6404: This name does not have a type, and must have an explicit type. [LDLGMODE3] VOUT = LDLGMODE3(1.0, ! lead-lag block gain ----------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(133): error #6404: This name does not have a type, and must have an explicit type. [NWLAGMODE3] VOUT = NWLAGMODE3(GETCON(J+2), ! exciter gain ----------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(152): error #6341: A logical data type is required in this context. [GETMIDTRM] IF (GETMIDTRM()) THEN -------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(169): error #6404: This name does not have a type, and must have an explicit type. [GETNINTEG] IF (K+1 > GETNINTEG()) CALL SETNINTEG(K+1) ---------------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(180): error #6341: A logical data type is required in this context. [GETMIDTRM] IF (GETMIDTRM()) RETURN ! model is not ready for Mid-term simulation -------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(182): error #6404: This name does not have a type, and must have an explicit type. [GETEFD] VOUT = GETEFD(MC) ----------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(183): error #6404: This name does not have a type, and must have an explicit type. [GETCON] IF ((VOUT > GETCON(J+5)) .OR. (VOUT < GETCON(J+4))) THEN ---------------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(185): error #6404: This name does not have a type, and must have an explicit type. [DBUF01] WRITE(DBUF01,107) VOUT, ' is greater than Emax= ',GETCON(J+5) ---------------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(189): error #6404: This name does not have a type, and must have an explicit type. [GETW7PRG] CALL ShowModel(GETW7PRG()) ---------------------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(193): error #6404: This name does not have a type, and must have an explicit type. [NWLAGMODE1] VINP = NWLAGMODE1(GETCON(J+2), ! exciter gain ----------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(203): error #6404: This name does not have a type, and must have an explicit type. [LDLGMODE1] VINP = LDLGMODE1(1.0, ! lead-lag block gain ----------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(224): error #6404: This name does not have a type, and must have an explicit type. [NUMBUS] WRITE(DBUF01,507) NUMBUS(IB), GETMACHID(MC), GETCON(J, J+5) ---------------------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(224): error #6404: This name does not have a type, and must have an explicit type. [GETMACHID] WRITE(DBUF01,507) NUMBUS(IB), GETMACHID(MC), GETCON(J, J+5) ---------------------------------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(225): error #6404: This name does not have a type, and must have an explicit type. [GETIPRT] CALL REPORTS(GETIPRT(),DBUF01,2) ----------------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(242): error #6404: This name does not have a type, and must have an explicit type. [GETCONMSGWARN] CALL DOCUCHK(3,'K',GETCONMSGWARN(), ------------------------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for(243): error #6404: This name does not have a type, and must have an explicit type. [GETDOCUCHKERRLESSOREQ] & GETDOCUCHKERRLESSOREQ(),100.0,0.0,ERRFLG) ------------------------^ C:/Users/rtds/Desktop/UDM/PSSTest/uexs_vindp.for(295): catastrophic error: Too many errors, exiting

compilation aborted for C:/Users/rtds/Desktop/UDM/PSSTest/uexsvindp.for (code 1)

Can you please help me how can i resolve this error