{"id":15297,"date":"2014-04-08T14:14:49","date_gmt":"2014-04-08T14:14:49","guid":{"rendered":"https:\/\/fortran.uk\/?p=15297"},"modified":"2017-04-27T15:10:33","modified_gmt":"2017-04-27T14:10:33","slug":"spag-questions-answers","status":"publish","type":"page","link":"https:\/\/fortran.uk\/fortran-analysis-and-refactoring-with-plusfort\/spag-questions-answers\/","title":{"rendered":"SPAG – Questions and Answers"},"content":{"rendered":"

Shouldn’t I just bin this old stuff and start from scratch?<\/h2>\n

It’s tempting to wash your hands of legacy\u00a0code, but programs have content as well as form. Old Fortran programs may look awful, and seem impossible to understand, but there is often real treasure buried in them, in the form of algorithms, data, and information of all sorts.<\/p>\n

Don’t just throw it away – recondition it! With plus<\/i>FORT<\/b>, and a little effort you can rewrite your program to modern standards in a fraction of the time you would have needed for a rewrite.<\/p>\n

\n

What happens to comments when the code is restructured?<\/h2>\n

Comments are presumed to be attached to the statement that follows them, and as the code is restructured, are moved around in the same way as that statement. F95 style end-of-line comments, are an exception, and are attached to the statement with which they share a line. Another exception is comments preceding statements which are removed from the program (e.g. CONTINUE or GOTO statements which are not needed in the unscrambled code). These are attached to the statement following the redundant statement. The net result is that SPAG preserves comments and usually puts them in the right place.<\/p>\n

\n

Are there limits on the size of program that can be processed by SPAG?<\/h2>\n

Not really. You can process any number of subprograms, and each could have many thousands of statements. plusFORT has been used on numerous projects involving millions of lines of code..<\/p>\n

\n

Does SPAGged code run slower?<\/h2>\n

With few exceptions, SPAG does not change the way in which computation is done, but only the way in which control is passed between one computational section of code and another. As a result, there should be little or no change to either the size or speed of the object code when a program is unscrambled.<\/p>\n

\n

Can SPAG handle non-standard Extensions to the ISO standard?<\/h2>\n

Yes. SPAG understands Fortran 95, and much of Fortran 2003 and 2008. It also deals with most proprietary extensions. including VAX Fortran, IBM VS Fortran, Cray pointers, ENCODE\/DECODE etc. <\/p>\n

\n

How does SPAG restructure spaghetti code?<\/h2>\n

SPAG transforms spaghetti code by the cumulative effect of thousands of “elemental” operations. These are small changes which improve the structure of the code, but leave the meaning unchanged. An important advantage of this approach is that major changes to program structure are brought about by a small number of relatively simple and thoroughly reliable procedures. Look at the example below: the apparently small change between the initial and final states is in fact the result of five elemental operations.<\/p>\n

\n

 <\/p>\n

SPAG elemental operators – A Worked Example<\/h4>\n\n\n\n\n\n\n\n\n
Before<\/th>\nStage 1<\/th>\n<\/tr>\n
\n
    IF ( A.GT.B ) GOTO 10\r\n    R1 = 2.0\r\n    CALL SUB\r\n 10 PRINT * , R1<\/pre>\n<\/td>\n
\n
    IF ( A.GT.B ) THEN\r\n       GOTO 10\r\n    ELSE\r\n       GOTO xx\r\n    ENDIF\r\n xx R1 = 2.0\r\n    CALL SUB\r\n 10 PRINT * , R1<\/pre>\n<\/td>\n<\/tr>\n
Stage 2<\/th>\nStage 3<\/th>\n<\/tr>\n
\n
    IF ( A.GT.B ) THEN\r\n       GOTO 10\r\n    ELSE\r\n       R1 = 2.0\r\n       CALL SUB\r\n       GOTO 10\r\n    ENDIF\r\n 10 PRINT * , R1<\/pre>\n<\/td>\n
\n
    IF ( A.GT.B ) THEN\r\n    ELSE\r\n       R1 = 2.0\r\n       CALL SUB\r\n    ENDIF\r\n    GOTO 10\r\n 10 PRINT * , R1<\/pre>\n<\/td>\n<\/tr>\n
Stage 4<\/th>\nStage 5<\/th>\n<\/tr>\n
\n
    IF ( A.GT.B ) THEN\r\n    ELSE\r\n       R1 = 2.0\r\n       CALL SUB\r\n    ENDIF\r\n    PRINT * , R1<\/pre>\n<\/td>\n
\n
    IF ( a.LE.b ) THEN\r\n      r1 = 2.0\r\n      CALL sub\r\n   ENDIF\r\n   PRINT * , r1<\/pre>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
 <\/p>\n
\n
Does it just amount to removing all GOTOs?<\/h2>\n
Of course, there is more to producing readable code than just eliminating GOTOs. Pascal and C programmers know that too much nesting can make programs almost as obscure as too little. SPAG has elemental operators which allow it to reduce nesting by use of the ELSEIF statement. Look at the example below:<\/p>\n
\n
 <\/p>\n
Example of Indentation Reduction<\/h3>\n\n\n\n\n
Before<\/th>\nAfter<\/th>\n<\/tr>\n
\n
    IF ( z.NE.'ONE' ) THEN\r\n       IF ( z.NE.'TWO' ) THEN\r\n          IF ( z.NE.'THREE' ) THEN\r\n             IF ( z.EQ.'FOUR' ) THEN\r\n                x = a(4)\r\n             ENDIF\r\n          ELSE\r\n             x = a(3)\r\n          ENDIF\r\n       ELSE\r\n          x = a(2)\r\n       ENDIF\r\n    ELSE\r\n       x = a(1)\r\n    ENDIF<\/pre>\n<\/td>\n
\n
    IF ( z.EQ.'ONE' ) THEN\r\n       x = a(1)\r\n    ELSEIF ( z.EQ.'TWO' ) THEN\r\n       x = a(2)\r\n    ELSEIF ( z.EQ.'THREE' ) THEN\r\n       x = a(3)\r\n    ELSEIF ( z.EQ.'FOUR' ) THEN\r\n       x= a(4)\r\n    ENDIF<\/pre>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
 <\/p>\n
\n
Can I be absolutely sure that SPAG will not change the logic of my program?<\/h2>\n
SPAG is now a mature program. Since it was first released in 1986, SPAG has successfully unscrambled billions of lines of spaghetti Fortran, and it does its job without fuss or incident.<\/p>\n
The way SPAG works – by the repeated application of simple operators – makes it inherently robust.<\/p>\n
In fact SPAG provides a way to REDUCE the risk which inevitably goes with change. Using SPAG is certainly orders of magnitude safer than changing your code by hand.<\/p>\n
\n","protected":false},"excerpt":{"rendered":"
Shouldn’t I just bin this old stuff and start from scratch? It’s tempting to wash your hands of legacy\u00a0code, but programs have content as well as form. Old Fortran programs may look awful, and seem impossible to understand, but there is often real treasure buried in them, in the form of algorithms, data, and information […]<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":17477,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":[],"yoast_head":"\nSPAG - Questions and Answers - Fortran UK<\/title>\n<meta name=\"description\" content=\"Why should I use SPAG? How does it work? Is it safe? Answers to some commonly asked questions about Polyhedron's SPAG spaghetti code unscrambler.\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/fortran.uk\/fortran-analysis-and-refactoring-with-plusfort\/spag-questions-answers\/\" \/>\n<meta property=\"og:locale\" content=\"en_GB\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"SPAG - Questions and Answers - Fortran UK\" \/>\n<meta property=\"og:description\" content=\"Why should I use SPAG? How does it work? Is it safe? Answers to some commonly asked questions about Polyhedron's SPAG spaghetti code unscrambler.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/fortran.uk\/fortran-analysis-and-refactoring-with-plusfort\/spag-questions-answers\/\" \/>\n<meta property=\"og:site_name\" content=\"Fortran UK\" \/>\n<meta property=\"article:modified_time\" content=\"2017-04-27T14:10:33+00:00\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Estimated reading time\" \/>\n\t<meta name=\"twitter:data1\" content=\"4 minutes\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/fortran.uk\/fortran-analysis-and-refactoring-with-plusfort\/spag-questions-answers\/\",\"url\":\"https:\/\/fortran.uk\/fortran-analysis-and-refactoring-with-plusfort\/spag-questions-answers\/\",\"name\":\"SPAG - Questions and Answers - Fortran UK\",\"isPartOf\":{\"@id\":\"https:\/\/fortran.uk\/#website\"},\"datePublished\":\"2014-04-08T14:14:49+00:00\",\"dateModified\":\"2017-04-27T14:10:33+00:00\",\"description\":\"Why should I use SPAG? How does it work? Is it safe? Answers to some commonly asked questions about Polyhedron's SPAG spaghetti code unscrambler.\",\"breadcrumb\":{\"@id\":\"https:\/\/fortran.uk\/fortran-analysis-and-refactoring-with-plusfort\/spag-questions-answers\/#breadcrumb\"},\"inLanguage\":\"en-GB\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/fortran.uk\/fortran-analysis-and-refactoring-with-plusfort\/spag-questions-answers\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/fortran.uk\/fortran-analysis-and-refactoring-with-plusfort\/spag-questions-answers\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/fortran.uk\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Fortran Analysis & Refactoring with plusFORT V8\",\"item\":\"https:\/\/fortran.uk\/fortran-analysis-and-refactoring-with-plusfort\/\"},{\"@type\":\"ListItem\",\"position\":3,\"name\":\"SPAG – Questions and Answers\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/fortran.uk\/#website\",\"url\":\"https:\/\/fortran.uk\/\",\"name\":\"Fortran UK\",\"description\":\"All things Fortran\",\"publisher\":{\"@id\":\"https:\/\/fortran.uk\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/fortran.uk\/?s={search_term_string}\"},\"query-input\":\"required name=search_term_string\"}],\"inLanguage\":\"en-GB\"},{\"@type\":\"Organization\",\"@id\":\"https:\/\/fortran.uk\/#organization\",\"name\":\"Polyhedron Solutions Ltd.\",\"url\":\"https:\/\/fortran.uk\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-GB\",\"@id\":\"https:\/\/fortran.uk\/#\/schema\/logo\/image\/\",\"url\":\"https:\/\/fortran.uk\/wp-content\/uploads\/2018\/03\/Web-logoPolySol.png\",\"contentUrl\":\"https:\/\/fortran.uk\/wp-content\/uploads\/2018\/03\/Web-logoPolySol.png\",\"width\":203,\"height\":113,\"caption\":\"Polyhedron Solutions Ltd.\"},\"image\":{\"@id\":\"https:\/\/fortran.uk\/#\/schema\/logo\/image\/\"},\"sameAs\":[\"https:\/\/www.youtube.com\/@polyhedronsolutions1405\"]}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"SPAG - Questions and Answers - Fortran UK","description":"Why should I use SPAG? How does it work? Is it safe? Answers to some commonly asked questions about Polyhedron's SPAG spaghetti code unscrambler.","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/fortran.uk\/fortran-analysis-and-refactoring-with-plusfort\/spag-questions-answers\/","og_locale":"en_GB","og_type":"article","og_title":"SPAG - Questions and Answers - Fortran UK","og_description":"Why should I use SPAG? How does it work? Is it safe? Answers to some commonly asked questions about Polyhedron's SPAG spaghetti code unscrambler.","og_url":"https:\/\/fortran.uk\/fortran-analysis-and-refactoring-with-plusfort\/spag-questions-answers\/","og_site_name":"Fortran UK","article_modified_time":"2017-04-27T14:10:33+00:00","twitter_card":"summary_large_image","twitter_misc":{"Estimated reading time":"4 minutes"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/fortran.uk\/fortran-analysis-and-refactoring-with-plusfort\/spag-questions-answers\/","url":"https:\/\/fortran.uk\/fortran-analysis-and-refactoring-with-plusfort\/spag-questions-answers\/","name":"SPAG - Questions and Answers - Fortran UK","isPartOf":{"@id":"https:\/\/fortran.uk\/#website"},"datePublished":"2014-04-08T14:14:49+00:00","dateModified":"2017-04-27T14:10:33+00:00","description":"Why should I use SPAG? How does it work? Is it safe? Answers to some commonly asked questions about Polyhedron's SPAG spaghetti code unscrambler.","breadcrumb":{"@id":"https:\/\/fortran.uk\/fortran-analysis-and-refactoring-with-plusfort\/spag-questions-answers\/#breadcrumb"},"inLanguage":"en-GB","potentialAction":[{"@type":"ReadAction","target":["https:\/\/fortran.uk\/fortran-analysis-and-refactoring-with-plusfort\/spag-questions-answers\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/fortran.uk\/fortran-analysis-and-refactoring-with-plusfort\/spag-questions-answers\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/fortran.uk\/"},{"@type":"ListItem","position":2,"name":"Fortran Analysis & Refactoring with plusFORT V8","item":"https:\/\/fortran.uk\/fortran-analysis-and-refactoring-with-plusfort\/"},{"@type":"ListItem","position":3,"name":"SPAG – Questions and Answers"}]},{"@type":"WebSite","@id":"https:\/\/fortran.uk\/#website","url":"https:\/\/fortran.uk\/","name":"Fortran UK","description":"All things Fortran","publisher":{"@id":"https:\/\/fortran.uk\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/fortran.uk\/?s={search_term_string}"},"query-input":"required name=search_term_string"}],"inLanguage":"en-GB"},{"@type":"Organization","@id":"https:\/\/fortran.uk\/#organization","name":"Polyhedron Solutions Ltd.","url":"https:\/\/fortran.uk\/","logo":{"@type":"ImageObject","inLanguage":"en-GB","@id":"https:\/\/fortran.uk\/#\/schema\/logo\/image\/","url":"https:\/\/fortran.uk\/wp-content\/uploads\/2018\/03\/Web-logoPolySol.png","contentUrl":"https:\/\/fortran.uk\/wp-content\/uploads\/2018\/03\/Web-logoPolySol.png","width":203,"height":113,"caption":"Polyhedron Solutions Ltd."},"image":{"@id":"https:\/\/fortran.uk\/#\/schema\/logo\/image\/"},"sameAs":["https:\/\/www.youtube.com\/@polyhedronsolutions1405"]}]}},"_links":{"self":[{"href":"https:\/\/fortran.uk\/wp-json\/wp\/v2\/pages\/15297"}],"collection":[{"href":"https:\/\/fortran.uk\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/fortran.uk\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/fortran.uk\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/fortran.uk\/wp-json\/wp\/v2\/comments?post=15297"}],"version-history":[{"count":5,"href":"https:\/\/fortran.uk\/wp-json\/wp\/v2\/pages\/15297\/revisions"}],"predecessor-version":[{"id":18670,"href":"https:\/\/fortran.uk\/wp-json\/wp\/v2\/pages\/15297\/revisions\/18670"}],"up":[{"embeddable":true,"href":"https:\/\/fortran.uk\/wp-json\/wp\/v2\/pages\/17477"}],"wp:attachment":[{"href":"https:\/\/fortran.uk\/wp-json\/wp\/v2\/media?parent=15297"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}