Version 83d plus merge demo
IanKing
8 years ago
parent
0c8e29e340
commit
3ff4dbed38
Binary file not shown.
@ -0,0 +1,31 @@
|
||||
<!DOCTYPE HTML>
|
||||
<html>
|
||||
<head>
|
||||
<meta name="DC.date" content="2017-02-07 04:09:51 PM" />
|
||||
<meta name="DC.language" content="ENU" />
|
||||
|
||||
<meta name="google" value="notranslate" />
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
|
||||
<meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1">
|
||||
<title>Created by Camtasia Studio 8</title>
|
||||
|
||||
<style>
|
||||
html, body {
|
||||
margin: 0px;
|
||||
padding: 0px;
|
||||
font-family:Verdana, Geneva, sans-serif;
|
||||
background-color: #1a1a1a;
|
||||
text-align: center;
|
||||
width: 100%;
|
||||
height: 100%;
|
||||
}
|
||||
|
||||
</style>
|
||||
|
||||
<link href="MERGEDEMO_embed.css" rel="stylesheet" type="text/css">
|
||||
</head>
|
||||
<body>
|
||||
<iframe class="tscplayer_inline" id="embeddedSmartPlayerInstance" src="MERGEDEMO_player.html?embedIFrameId=embeddedSmartPlayerInstance" scrolling="no" frameborder="0" webkitAllowFullScreen mozallowfullscreen allowFullScreen></iframe>
|
||||
|
||||
</body>
|
||||
</html>
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 792 KiB |
@ -0,0 +1,36 @@
|
||||
<x:xmpmeta xmlns:x="adobe:ns:meta/">
|
||||
<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:xmp="http://ns.adobe.com/xap/1.0/" xmlns:xmpDM="http://ns.adobe.com/xmp/1.0/DynamicMedia/" xmlns:xmpG="http://ns.adobe.com/xap/1.0/g/" xmlns:tsc="http://www.techsmith.com/xmp/tsc/" xmlns:xmpMM="http://ns.adobe.com/xap/1.0/mm/" xmlns:tscDM="http://www.techsmith.com/xmp/tscDM/" xmlns:tscIQ="http://www.techsmith.com/xmp/tscIQ/" xmlns:tscHS="http://www.techsmith.com/xmp/tscHS/" xmlns:stDim="http://ns.adobe.com/xap/1.0/sType/Dimensions#" xmlns:stFnt="http://ns.adobe.com/xap/1.0/sType/Font#" xmlns:exif="http://ns.adobe.com/exif/1.0" xmlns:dc="http://purl.org/dc/elements/1.1/">
|
||||
<rdf:Description tsc:version="2.0.1" dc:date="2017-02-07 04:12:15 PM" dc:source="Camtasia Studio,8.5.1,enu" dc:title="MERGEDEMO" tscDM:firstFrame="MERGEDEMO_First_Frame.png" tscDM:originId="8B31DDA3-03CB-436E-AA29-8B6426F9E569" tscDM:project="capture-3">
|
||||
<xmpDM:duration xmpDM:scale="1/1000" xmpDM:value="68033"/>
|
||||
<xmpDM:videoFrameSize stDim:unit="pixel" stDim:h="1080" stDim:w="1920"/>
|
||||
<tsc:langName>
|
||||
<rdf:Bag>
|
||||
<rdf:li xml:lang="en-US">English</rdf:li></rdf:Bag>
|
||||
</tsc:langName>
|
||||
<xmpDM:Tracks>
|
||||
<rdf:Bag>
|
||||
</rdf:Bag>
|
||||
</xmpDM:Tracks>
|
||||
<tscDM:controller>
|
||||
<rdf:Description xmpDM:name="tscplayer">
|
||||
<tscDM:parameters>
|
||||
<rdf:Bag>
|
||||
<rdf:li xmpDM:name="autohide" xmpDM:value="true"/><rdf:li xmpDM:name="autoplay" xmpDM:value="false"/><rdf:li xmpDM:name="loop" xmpDM:value="false"/><rdf:li xmpDM:name="searchable" xmpDM:value="false"/><rdf:li xmpDM:name="captionsenabled" xmpDM:value="false"/><rdf:li xmpDM:name="sidebarenabled" xmpDM:value="false"/><rdf:li xmpDM:name="unicodeenabled" xmpDM:value="false"/><rdf:li xmpDM:name="backgroundcolor" xmpDM:value="000000"/><rdf:li xmpDM:name="sidebarlocation" xmpDM:value="left"/><rdf:li xmpDM:name="endaction" xmpDM:value="stop"/><rdf:li xmpDM:name="endactionparam" xmpDM:value="true"/><rdf:li xmpDM:name="locale" xmpDM:value="en-US"/></rdf:Bag>
|
||||
</tscDM:parameters>
|
||||
<tscDM:controllerText>
|
||||
<rdf:Bag>
|
||||
</rdf:Bag>
|
||||
</tscDM:controllerText>
|
||||
</rdf:Description>
|
||||
</tscDM:controller>
|
||||
<tscDM:contentList>
|
||||
<rdf:Description>
|
||||
<tscDM:files>
|
||||
<rdf:Seq>
|
||||
<rdf:li xmpDM:name="0" xmpDM:value="MERGEDEMO.MP4"/><rdf:li xmpDM:name="1" xmpDM:value="MERGEDEMO_First_Frame.png"/></rdf:Seq>
|
||||
</tscDM:files>
|
||||
</rdf:Description>
|
||||
</tscDM:contentList>
|
||||
</rdf:Description>
|
||||
</rdf:RDF>
|
||||
</x:xmpmeta>
|
||||
Binary file not shown.
@ -0,0 +1,28 @@
|
||||
@charset "utf-8";
|
||||
|
||||
#tsc_player {
|
||||
z-index: 9999;
|
||||
}
|
||||
|
||||
.tscplayer_inline {
|
||||
position:static;
|
||||
margin: 30px;
|
||||
width: 852px;
|
||||
height: 480px;
|
||||
z-index:auto;
|
||||
}
|
||||
|
||||
.tscplayer_fullframe {
|
||||
position:absolute;
|
||||
top: 0px;
|
||||
left: 0px;
|
||||
margin: 0px;
|
||||
padding: 0px;
|
||||
z-index: 9999;
|
||||
}
|
||||
|
||||
@media screen and (max-width: 852px) {
|
||||
.tscplayer_inline {
|
||||
width: 100%;
|
||||
}
|
||||
}
|
||||
@ -0,0 +1,75 @@
|
||||
<!DOCTYPE html>
|
||||
<!-- saved from url=(0014)about:internet -->
|
||||
<html>
|
||||
<head>
|
||||
<meta name="google" value="notranslate" />
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
|
||||
<meta name="viewport" content="width=device-width, initial-scale=1" />
|
||||
<meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1">
|
||||
<title></title>
|
||||
<link href='https://fonts.googleapis.com/css?family=Quicksand|Actor' rel='stylesheet' type='text/css'>
|
||||
<link href="skins/overlay/techsmith-smart-player.min.css" rel="stylesheet" type="text/css" />
|
||||
|
||||
<style>
|
||||
html, body {
|
||||
background-color: #1a1a1a;
|
||||
}
|
||||
</style>
|
||||
</head>
|
||||
<body>
|
||||
|
||||
<div id="tscVideoContent">
|
||||
<img width="32px" height="32px" style="position: absolute; top: 50%; left: 50%; margin: -16px 0 0 -16px"
|
||||
src="data:image/gif;base64,R0lGODlhIAAgAPMAAAAAAP///zg4OHp6ekhISGRkZMjIyKioqCYmJhoaGkJCQuDg4Pr6+gAAAAAAAAAAACH/C05FVFNDQVBFMi4wAwEAAAAh/hpDcmVhdGVkIHdpdGggYWpheGxvYWQuaW5mbwAh+QQJCgAAACwAAAAAIAAgAAAE5xDISWlhperN52JLhSSdRgwVo1ICQZRUsiwHpTJT4iowNS8vyW2icCF6k8HMMBkCEDskxTBDAZwuAkkqIfxIQyhBQBFvAQSDITM5VDW6XNE4KagNh6Bgwe60smQUB3d4Rz1ZBApnFASDd0hihh12BkE9kjAJVlycXIg7CQIFA6SlnJ87paqbSKiKoqusnbMdmDC2tXQlkUhziYtyWTxIfy6BE8WJt5YJvpJivxNaGmLHT0VnOgSYf0dZXS7APdpB309RnHOG5gDqXGLDaC457D1zZ/V/nmOM82XiHRLYKhKP1oZmADdEAAAh+QQJCgAAACwAAAAAIAAgAAAE6hDISWlZpOrNp1lGNRSdRpDUolIGw5RUYhhHukqFu8DsrEyqnWThGvAmhVlteBvojpTDDBUEIFwMFBRAmBkSgOrBFZogCASwBDEY/CZSg7GSE0gSCjQBMVG023xWBhklAnoEdhQEfyNqMIcKjhRsjEdnezB+A4k8gTwJhFuiW4dokXiloUepBAp5qaKpp6+Ho7aWW54wl7obvEe0kRuoplCGepwSx2jJvqHEmGt6whJpGpfJCHmOoNHKaHx61WiSR92E4lbFoq+B6QDtuetcaBPnW6+O7wDHpIiK9SaVK5GgV543tzjgGcghAgAh+QQJCgAAACwAAAAAIAAgAAAE7hDISSkxpOrN5zFHNWRdhSiVoVLHspRUMoyUakyEe8PTPCATW9A14E0UvuAKMNAZKYUZCiBMuBakSQKG8G2FzUWox2AUtAQFcBKlVQoLgQReZhQlCIJesQXI5B0CBnUMOxMCenoCfTCEWBsJColTMANldx15BGs8B5wlCZ9Po6OJkwmRpnqkqnuSrayqfKmqpLajoiW5HJq7FL1Gr2mMMcKUMIiJgIemy7xZtJsTmsM4xHiKv5KMCXqfyUCJEonXPN2rAOIAmsfB3uPoAK++G+w48edZPK+M6hLJpQg484enXIdQFSS1u6UhksENEQAAIfkECQoAAAAsAAAAACAAIAAABOcQyEmpGKLqzWcZRVUQnZYg1aBSh2GUVEIQ2aQOE+G+cD4ntpWkZQj1JIiZIogDFFyHI0UxQwFugMSOFIPJftfVAEoZLBbcLEFhlQiqGp1Vd140AUklUN3eCA51C1EWMzMCezCBBmkxVIVHBWd3HHl9JQOIJSdSnJ0TDKChCwUJjoWMPaGqDKannasMo6WnM562R5YluZRwur0wpgqZE7NKUm+FNRPIhjBJxKZteWuIBMN4zRMIVIhffcgojwCF117i4nlLnY5ztRLsnOk+aV+oJY7V7m76PdkS4trKcdg0Zc0tTcKkRAAAIfkECQoAAAAsAAAAACAAIAAABO4QyEkpKqjqzScpRaVkXZWQEximw1BSCUEIlDohrft6cpKCk5xid5MNJTaAIkekKGQkWyKHkvhKsR7ARmitkAYDYRIbUQRQjWBwJRzChi9CRlBcY1UN4g0/VNB0AlcvcAYHRyZPdEQFYV8ccwR5HWxEJ02YmRMLnJ1xCYp0Y5idpQuhopmmC2KgojKasUQDk5BNAwwMOh2RtRq5uQuPZKGIJQIGwAwGf6I0JXMpC8C7kXWDBINFMxS4DKMAWVWAGYsAdNqW5uaRxkSKJOZKaU3tPOBZ4DuK2LATgJhkPJMgTwKCdFjyPHEnKxFCDhEAACH5BAkKAAAALAAAAAAgACAAAATzEMhJaVKp6s2nIkolIJ2WkBShpkVRWqqQrhLSEu9MZJKK9y1ZrqYK9WiClmvoUaF8gIQSNeF1Er4MNFn4SRSDARWroAIETg1iVwuHjYB1kYc1mwruwXKC9gmsJXliGxc+XiUCby9ydh1sOSdMkpMTBpaXBzsfhoc5l58Gm5yToAaZhaOUqjkDgCWNHAULCwOLaTmzswadEqggQwgHuQsHIoZCHQMMQgQGubVEcxOPFAcMDAYUA85eWARmfSRQCdcMe0zeP1AAygwLlJtPNAAL19DARdPzBOWSm1brJBi45soRAWQAAkrQIykShQ9wVhHCwCQCACH5BAkKAAAALAAAAAAgACAAAATrEMhJaVKp6s2nIkqFZF2VIBWhUsJaTokqUCoBq+E71SRQeyqUToLA7VxF0JDyIQh/MVVPMt1ECZlfcjZJ9mIKoaTl1MRIl5o4CUKXOwmyrCInCKqcWtvadL2SYhyASyNDJ0uIiRMDjI0Fd30/iI2UA5GSS5UDj2l6NoqgOgN4gksEBgYFf0FDqKgHnyZ9OX8HrgYHdHpcHQULXAS2qKpENRg7eAMLC7kTBaixUYFkKAzWAAnLC7FLVxLWDBLKCwaKTULgEwbLA4hJtOkSBNqITT3xEgfLpBtzE/jiuL04RGEBgwWhShRgQExHBAAh+QQJCgAAACwAAAAAIAAgAAAE7xDISWlSqerNpyJKhWRdlSAVoVLCWk6JKlAqAavhO9UkUHsqlE6CwO1cRdCQ8iEIfzFVTzLdRAmZX3I2SfZiCqGk5dTESJeaOAlClzsJsqwiJwiqnFrb2nS9kmIcgEsjQydLiIlHehhpejaIjzh9eomSjZR+ipslWIRLAgMDOR2DOqKogTB9pCUJBagDBXR6XB0EBkIIsaRsGGMMAxoDBgYHTKJiUYEGDAzHC9EACcUGkIgFzgwZ0QsSBcXHiQvOwgDdEwfFs0sDzt4S6BK4xYjkDOzn0unFeBzOBijIm1Dgmg5YFQwsCMjp1oJ8LyIAACH5BAkKAAAALAAAAAAgACAAAATwEMhJaVKp6s2nIkqFZF2VIBWhUsJaTokqUCoBq+E71SRQeyqUToLA7VxF0JDyIQh/MVVPMt1ECZlfcjZJ9mIKoaTl1MRIl5o4CUKXOwmyrCInCKqcWtvadL2SYhyASyNDJ0uIiUd6GGl6NoiPOH16iZKNlH6KmyWFOggHhEEvAwwMA0N9GBsEC6amhnVcEwavDAazGwIDaH1ipaYLBUTCGgQDA8NdHz0FpqgTBwsLqAbWAAnIA4FWKdMLGdYGEgraigbT0OITBcg5QwPT4xLrROZL6AuQAPUS7bxLpoWidY0JtxLHKhwwMJBTHgPKdEQAACH5BAkKAAAALAAAAAAgACAAAATrEMhJaVKp6s2nIkqFZF2VIBWhUsJaTokqUCoBq+E71SRQeyqUToLA7VxF0JDyIQh/MVVPMt1ECZlfcjZJ9mIKoaTl1MRIl5o4CUKXOwmyrCInCKqcWtvadL2SYhyASyNDJ0uIiUd6GAULDJCRiXo1CpGXDJOUjY+Yip9DhToJA4RBLwMLCwVDfRgbBAaqqoZ1XBMHswsHtxtFaH1iqaoGNgAIxRpbFAgfPQSqpbgGBqUD1wBXeCYp1AYZ19JJOYgH1KwA4UBvQwXUBxPqVD9L3sbp2BNk2xvvFPJd+MFCN6HAAIKgNggY0KtEBAAh+QQJCgAAACwAAAAAIAAgAAAE6BDISWlSqerNpyJKhWRdlSAVoVLCWk6JKlAqAavhO9UkUHsqlE6CwO1cRdCQ8iEIfzFVTzLdRAmZX3I2SfYIDMaAFdTESJeaEDAIMxYFqrOUaNW4E4ObYcCXaiBVEgULe0NJaxxtYksjh2NLkZISgDgJhHthkpU4mW6blRiYmZOlh4JWkDqILwUGBnE6TYEbCgevr0N1gH4At7gHiRpFaLNrrq8HNgAJA70AWxQIH1+vsYMDAzZQPC9VCNkDWUhGkuE5PxJNwiUK4UfLzOlD4WvzAHaoG9nxPi5d+jYUqfAhhykOFwJWiAAAIfkECQoAAAAsAAAAACAAIAAABPAQyElpUqnqzaciSoVkXVUMFaFSwlpOCcMYlErAavhOMnNLNo8KsZsMZItJEIDIFSkLGQoQTNhIsFehRww2CQLKF0tYGKYSg+ygsZIuNqJksKgbfgIGepNo2cIUB3V1B3IvNiBYNQaDSTtfhhx0CwVPI0UJe0+bm4g5VgcGoqOcnjmjqDSdnhgEoamcsZuXO1aWQy8KAwOAuTYYGwi7w5h+Kr0SJ8MFihpNbx+4Erq7BYBuzsdiH1jCAzoSfl0rVirNbRXlBBlLX+BP0XJLAPGzTkAuAOqb0WT5AH7OcdCm5B8TgRwSRKIHQtaLCwg1RAAAOwAAAAAAAAAAAA==">
|
||||
</div>
|
||||
|
||||
<script src="scripts/config_xml.js"></script>
|
||||
<script type="text/javascript">
|
||||
(function (window) {
|
||||
function setup(TSC) {
|
||||
TSC.playerConfiguration.setFlashPlayerSwf("MERGEDEMO_controller.swf");
|
||||
TSC.playerConfiguration.addMediaSrc("MERGEDEMO.MP4");
|
||||
TSC.playerConfiguration.setXMPSrc("MERGEDEMO_config.xml");
|
||||
|
||||
TSC.playerConfiguration.setAutoHideControls(true);
|
||||
TSC.playerConfiguration.setBackgroundColor("#000000");
|
||||
TSC.playerConfiguration.setCaptionsEnabled(false);
|
||||
TSC.playerConfiguration.setSidebarEnabled(false);
|
||||
|
||||
TSC.playerConfiguration.setAutoPlayMedia(false);
|
||||
TSC.playerConfiguration.setPosterImageSrc("MERGEDEMO_First_Frame.png");
|
||||
TSC.playerConfiguration.setIsSearchable(false);
|
||||
TSC.playerConfiguration.setEndActionType("stop");
|
||||
TSC.playerConfiguration.setEndActionParam("true");
|
||||
TSC.playerConfiguration.setAllowRewind(-1);
|
||||
|
||||
|
||||
TSC.localizationStrings.setLanguage(TSC.languageCodes.ENGLISH);
|
||||
|
||||
// Uncomment to turn full frame mode on
|
||||
//TSC.playerConfiguration.setDisableFullframeMode(false);
|
||||
|
||||
// Uncomment to set custom skin for Flash
|
||||
//TSC.playerConfiguration.setConfigurationSrc("skins/configuration_present.xml");
|
||||
|
||||
// Use Fathom service
|
||||
//TSC.playerConfiguration.setFathomId("666850b8c609432d8c465dbaab3702a7");
|
||||
|
||||
// Uncomment to see hotspot shapes
|
||||
//TSC.playerConfiguration.setDebugHotspot(true);
|
||||
|
||||
// Uncomment to force flash player
|
||||
//TSC.playerConfiguration.setForceFlashPlayer(true);
|
||||
|
||||
TSC.mediaPlayer.init("#tscVideoContent");
|
||||
}
|
||||
|
||||
function loadScript(e,t){if(!e||!(typeof e==="string")){return}var n=document.createElement("script");if(typeof document.attachEvent==="object"){n.onreadystatechange=function(){if(n.readyState==="complete"||n.readyState==="loaded"){if(t){t()}}}}else{n.onload=function(){if(t){t()}}}n.src=e;document.getElementsByTagName("head")[0].appendChild(n)}
|
||||
|
||||
loadScript('scripts/techsmith-smart-player.min.js', function() {
|
||||
setup(window["TSC"]);
|
||||
});
|
||||
}(window));
|
||||
</script>
|
||||
</body>
|
||||
</html>
|
||||
Binary file not shown.
@ -0,0 +1,38 @@
|
||||
var TSC = TSC || {};
|
||||
|
||||
TSC.embedded_config_xml = '<x:xmpmeta xmlns:x="adobe:ns:meta/">\
|
||||
<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:xmp="http://ns.adobe.com/xap/1.0/" xmlns:xmpDM="http://ns.adobe.com/xmp/1.0/DynamicMedia/" xmlns:xmpG="http://ns.adobe.com/xap/1.0/g/" xmlns:tsc="http://www.techsmith.com/xmp/tsc/" xmlns:xmpMM="http://ns.adobe.com/xap/1.0/mm/" xmlns:tscDM="http://www.techsmith.com/xmp/tscDM/" xmlns:tscIQ="http://www.techsmith.com/xmp/tscIQ/" xmlns:tscHS="http://www.techsmith.com/xmp/tscHS/" xmlns:stDim="http://ns.adobe.com/xap/1.0/sType/Dimensions#" xmlns:stFnt="http://ns.adobe.com/xap/1.0/sType/Font#" xmlns:exif="http://ns.adobe.com/exif/1.0" xmlns:dc="http://purl.org/dc/elements/1.1/">\
|
||||
<rdf:Description tsc:version="2.0.1" dc:date="2017-02-07 04:12:15 PM" dc:source="Camtasia Studio,8.5.1,enu" dc:title="MERGEDEMO" tscDM:firstFrame="MERGEDEMO_First_Frame.png" tscDM:originId="8B31DDA3-03CB-436E-AA29-8B6426F9E569" tscDM:project="capture-3">\
|
||||
<xmpDM:duration xmpDM:scale="1/1000" xmpDM:value="68033"/>\
|
||||
<xmpDM:videoFrameSize stDim:unit="pixel" stDim:h="1080" stDim:w="1920"/>\
|
||||
<tsc:langName>\
|
||||
<rdf:Bag>\
|
||||
<rdf:li xml:lang="en-US">English</rdf:li></rdf:Bag>\
|
||||
</tsc:langName>\
|
||||
<xmpDM:Tracks>\
|
||||
<rdf:Bag>\
|
||||
</rdf:Bag>\
|
||||
</xmpDM:Tracks>\
|
||||
<tscDM:controller>\
|
||||
<rdf:Description xmpDM:name="tscplayer">\
|
||||
<tscDM:parameters>\
|
||||
<rdf:Bag>\
|
||||
<rdf:li xmpDM:name="autohide" xmpDM:value="true"/><rdf:li xmpDM:name="autoplay" xmpDM:value="false"/><rdf:li xmpDM:name="loop" xmpDM:value="false"/><rdf:li xmpDM:name="searchable" xmpDM:value="false"/><rdf:li xmpDM:name="captionsenabled" xmpDM:value="false"/><rdf:li xmpDM:name="sidebarenabled" xmpDM:value="false"/><rdf:li xmpDM:name="unicodeenabled" xmpDM:value="false"/><rdf:li xmpDM:name="backgroundcolor" xmpDM:value="000000"/><rdf:li xmpDM:name="sidebarlocation" xmpDM:value="left"/><rdf:li xmpDM:name="endaction" xmpDM:value="stop"/><rdf:li xmpDM:name="endactionparam" xmpDM:value="true"/><rdf:li xmpDM:name="locale" xmpDM:value="en-US"/></rdf:Bag>\
|
||||
</tscDM:parameters>\
|
||||
<tscDM:controllerText>\
|
||||
<rdf:Bag>\
|
||||
</rdf:Bag>\
|
||||
</tscDM:controllerText>\
|
||||
</rdf:Description>\
|
||||
</tscDM:controller>\
|
||||
<tscDM:contentList>\
|
||||
<rdf:Description>\
|
||||
<tscDM:files>\
|
||||
<rdf:Seq>\
|
||||
<rdf:li xmpDM:name="0" xmpDM:value="MERGEDEMO.MP4"/><rdf:li xmpDM:name="1" xmpDM:value="MERGEDEMO_First_Frame.png"/></rdf:Seq>\
|
||||
</tscDM:files>\
|
||||
</rdf:Description>\
|
||||
</tscDM:contentList>\
|
||||
</rdf:Description>\
|
||||
</rdf:RDF>\
|
||||
</x:xmpmeta>';
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
Binary file not shown.
|
After Width: | Height: | Size: 42 KiB |
File diff suppressed because one or more lines are too long
@ -0,0 +1,22 @@
|
||||
<?xml version="1.0"?>
|
||||
<CommonSettings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<PGO>
|
||||
<ViewModel>
|
||||
<RunPhase1>true</RunPhase1>
|
||||
<AppCollection>
|
||||
<AppDataViewModel>
|
||||
<Application>C:\Users\RMA5440\Fortran-Projects\RMAGEN\RMAGEN\INSTALL\RMAGENV83X.EXE</Application>
|
||||
<Arguments />
|
||||
<Directory>C:\Users\RMA5440\proj-17\ftn\jan31\RMA2 test files</Directory>
|
||||
<Environment />
|
||||
<MergeEnvironment>true</MergeEnvironment>
|
||||
</AppDataViewModel>
|
||||
</AppCollection>
|
||||
<RunPhase2>true</RunPhase2>
|
||||
<RunPhase3>true</RunPhase3>
|
||||
</ViewModel>
|
||||
<InstrumentThreadSafe>false</InstrumentThreadSafe>
|
||||
<InstrumentFuncOrder>true</InstrumentFuncOrder>
|
||||
<InstrumentDataLayout>false</InstrumentDataLayout>
|
||||
</PGO>
|
||||
</CommonSettings>
|
||||
@ -0,0 +1,9 @@
|
||||
0.0000000E+00 0.0000000E+00 0.0000000E+00
|
||||
0.0000000E+00 0.0000000E+00 0.0000000E+00
|
||||
0.0000000E+00 0.0000000E+00 0.0000000E+00
|
||||
0.0000000E+00 0.0000000E+00 0.0000000E+00
|
||||
0.0000000E+00 0.0000000E+00 0.0000000E+00
|
||||
0.0000000E+00 0.0000000E+00 0.0000000E+00
|
||||
0.0000000E+00 0.0000000E+00 0.0000000E+00
|
||||
0.0000000E+00 0.0000000E+00 0.0000000E+00
|
||||
0.0000000E+00 0.0000000E+00 0.0000000E+00
|
||||
Binary file not shown.
@ -0,0 +1,130 @@
|
||||
<?xml version="1.0"?>
|
||||
<Project_Data Version="8.00">
|
||||
<Project_Settings>
|
||||
<ProfileName></ProfileName>
|
||||
<ProjectWidth>1920</ProjectWidth>
|
||||
<ProjectHeight>1080</ProjectHeight>
|
||||
<IsCustomProject>1</IsCustomProject>
|
||||
<SavedProjectSettings>1</SavedProjectSettings>
|
||||
<LastFlashTemplate>-1</LastFlashTemplate>
|
||||
</Project_Settings>
|
||||
|
||||
|
||||
<AutoSaveFile>C:\Users\RMA5440\AppData\Local\TechSmith\Camtasia Studio\8.0\Auto-Saves\Untitled4eaa9470.autosave.camproj</AutoSaveFile>
|
||||
|
||||
<ProjectID>B0BE3E18-C5DF-40FA-A859-8E865C918D77</ProjectID>
|
||||
|
||||
<PowerPointProject>0</PowerPointProject>
|
||||
|
||||
<PowerPointFilename></PowerPointFilename>
|
||||
|
||||
|
||||
<Project_Notes>
|
||||
</Project_Notes>
|
||||
|
||||
<Project_MetaData>
|
||||
<Project_MetaData_Object>
|
||||
<FieldArrayKey>8</FieldArrayKey>
|
||||
<Value>Untitled</Value>
|
||||
</Project_MetaData_Object>
|
||||
<Project_MetaData_Object>
|
||||
<FieldArrayKey>13</FieldArrayKey>
|
||||
<Value>2017-02-07 04:09:51 PM</Value>
|
||||
</Project_MetaData_Object>
|
||||
<Project_MetaData_Object>
|
||||
<FieldArrayKey>16</FieldArrayKey>
|
||||
<Value>ENU</Value>
|
||||
</Project_MetaData_Object>
|
||||
</Project_MetaData>
|
||||
|
||||
<CSMLData>
|
||||
<GoProject id="1" version="3.0" >
|
||||
<Project id="2" editRate="30/1" version="3.0" >
|
||||
<Author></Author>
|
||||
<Comment></Comment>
|
||||
<System></System>
|
||||
<SourceBin id="3" >
|
||||
<Source id="4" src="C:\Users\RMA5440\Fortran-Projects\RMAGEN\capture-3.trec" lastMod="20170207T050821" rect="(0,0,1920,1080)" >
|
||||
<SourceTrack range="(0,2030)" type="0" editRate="30/1" trackRect="(0,0,1920,1080)" sampleRate="0/1" bitDepth="0" numChannels="0" filename="capture-3.trec!Strack0.tsc2" metaData="capture-3.trec;" />
|
||||
<SourceTrack range="(0,3000320)" type="2" editRate="44100/1" trackRect="(0,0,0,0)" sampleRate="44100/1" bitDepth="16" numChannels="2" filename="capture-3.trec!Maudio1.mp4" metaData="" />
|
||||
<SourceTrack range="(0,3000320)" type="2" editRate="44100/1" trackRect="(0,0,0,0)" sampleRate="44100/1" bitDepth="16" numChannels="2" filename="capture-3.trec!$audio2.mp4" metaData="" />
|
||||
</Source>
|
||||
</SourceBin>
|
||||
<Timeline id="5" >
|
||||
<Attributes>
|
||||
<Attribute id="6" value="800" name="width"/>
|
||||
<Attribute id="7" value="600" name="height"/>
|
||||
<Attribute id="8" value="(0,0,0,255)" name="backgroundColor"/>
|
||||
</Attributes>
|
||||
<GenericMixer id="9" name="Unified Mixer">
|
||||
<MetaData>
|
||||
<entry key="MixerType" val="TimelineMixer"/>
|
||||
</MetaData>
|
||||
<Tracks>
|
||||
<GenericTrack id="10" >
|
||||
<Attributes>
|
||||
<Attribute id="11" value="" name="ident"/>
|
||||
<Attribute id="12" value="0" name="audioMuted"/>
|
||||
<Attribute id="13" value="0" name="videoHidden"/>
|
||||
</Attributes>
|
||||
<MetaData>
|
||||
<entry key="IsLocked" val="False"/>
|
||||
<entry key="WinTrackHeight" val="62"/>
|
||||
</MetaData>
|
||||
<Medias>
|
||||
</Medias>
|
||||
</GenericTrack>
|
||||
<GenericTrack id="14" >
|
||||
<Attributes>
|
||||
<Attribute id="15" value="" name="ident"/>
|
||||
<Attribute id="16" value="0" name="audioMuted"/>
|
||||
<Attribute id="17" value="0" name="videoHidden"/>
|
||||
</Attributes>
|
||||
<MetaData>
|
||||
<entry key="IsLocked" val="False"/>
|
||||
<entry key="WinTrackHeight" val="62"/>
|
||||
</MetaData>
|
||||
<Medias>
|
||||
</Medias>
|
||||
</GenericTrack>
|
||||
</Tracks>
|
||||
</GenericMixer>
|
||||
<CaptionAttributes id="18" >
|
||||
<Attribute id="19" value="1" name="captionsEnabled"/>
|
||||
<Attribute id="20" value="Arial" name="captionsFontName"/>
|
||||
<Attribute id="21" value="20" name="captionsFontSize"/>
|
||||
<Attribute id="22" value="(0,0,0,255)" name="captionsBackgroundColor"/>
|
||||
<Attribute id="23" value="(255,255,255,255)" name="captionsForegroundColor"/>
|
||||
<Attribute id="24" value="en" name="lang"/>
|
||||
<Attribute id="25" value="0" name="captionsAlignment"/>
|
||||
<Attribute id="26" value="1" name="captionsDefaultFontSize"/>
|
||||
<Attribute id="27" value="0.5" name="captionsOpacity"/>
|
||||
<Attribute id="28" value="1" name="captionsBackgroundEnabled"/>
|
||||
<Attribute id="29" value="1" name="captionsBackgroundOnlyAroundText"/>
|
||||
</CaptionAttributes>
|
||||
<Parameters>
|
||||
<VectorParam id="30" name="eyePosition">
|
||||
<InterpolatingParam id="31" interp="linr" time="0/1" value="0" leadInLength="0/1" />
|
||||
<InterpolatingParam id="32" interp="linr" time="0/1" value="0" leadInLength="0/1" />
|
||||
<InterpolatingParam id="33" interp="linr" time="0/1" value="3000" leadInLength="0/1" />
|
||||
</VectorParam>
|
||||
<VectorParam id="34" name="eyeLookAtPosition">
|
||||
<InterpolatingParam id="35" interp="linr" time="0/1" value="0" leadInLength="0/1" />
|
||||
<InterpolatingParam id="36" interp="linr" time="0/1" value="0" leadInLength="0/1" />
|
||||
<InterpolatingParam id="37" interp="linr" time="0/1" value="0" leadInLength="0/1" />
|
||||
</VectorParam>
|
||||
<VectorParam id="38" name="eyeUpVector">
|
||||
<InterpolatingParam id="39" interp="linr" time="0/1" value="0" leadInLength="0/1" />
|
||||
<InterpolatingParam id="40" interp="linr" time="0/1" value="1" leadInLength="0/1" />
|
||||
<InterpolatingParam id="41" interp="linr" time="0/1" value="0" leadInLength="0/1" />
|
||||
</VectorParam>
|
||||
<InterpolatingParam id="42" interp="linr" time="0/1" value="0" leadInLength="0/1" name="fov"/>
|
||||
<InterpolatingParam id="43" interp="linr" time="0/1" value="1.5" leadInLength="0/1" name="nearClipDistance"/>
|
||||
<InterpolatingParam id="44" interp="linr" time="0/1" value="6000" leadInLength="0/1" name="farClipDistance"/>
|
||||
</Parameters>
|
||||
</Timeline>
|
||||
</Project>
|
||||
</GoProject>
|
||||
</CSMLData>
|
||||
|
||||
</Project_Data>
|
||||
Binary file not shown.
@ -1,47 +0,0 @@
|
||||
///////////////////////////////////////////////////
|
||||
//
|
||||
// THIS FILE SHOULD NOT BE EDITED USING A TEXT
|
||||
// EDITOR OR 3RD PARTY RESOURCE EDITOR, EXCEPT
|
||||
// WHEN SPECIFICALLY INSTRUCTED BY I.S.S.
|
||||
//
|
||||
///////////////////////////////////////////////////
|
||||
//
|
||||
// Winteracter exported resources.
|
||||
//
|
||||
// Exported : 08/May/2015 15:41:09
|
||||
//
|
||||
///////////////////////////////////////////////////
|
||||
//
|
||||
// To use this file it should be imported into
|
||||
// your main resource script
|
||||
//
|
||||
///////////////////////////////////////////////////
|
||||
|
||||
///////////////////////////////////////////////////
|
||||
//
|
||||
// Parameter Definitions
|
||||
//
|
||||
#define IDF_LABEL1 1001
|
||||
#define IDF_INTEGER1 1057
|
||||
#define IDD_SELELT 119
|
||||
|
||||
///////////////////////////////////////////////////
|
||||
//
|
||||
// Dialogs
|
||||
//
|
||||
IDD_SELELT DIALOG 0, 0, 160, 80
|
||||
STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME
|
||||
FONT 8, "MS Sans Serif"
|
||||
CAPTION "Select Element Number"
|
||||
BEGIN
|
||||
CONTROL "Element Number",IDF_LABEL1,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_LEFT, 26, 21, 54, 8
|
||||
CONTROL "0",IDF_INTEGER1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 100, 18, 40, 14
|
||||
CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 60, 46, 40, 14
|
||||
END
|
||||
|
||||
IDD_SELELT RCDATA
|
||||
BEGIN
|
||||
"[Ranges] \n"
|
||||
,0
|
||||
END
|
||||
|
||||
@ -0,0 +1,757 @@
|
||||
SUBROUTINE GETNEWFIL(IIN,IGFG,ITRIAN,ISWT)
|
||||
|
||||
INCLUDE 'BFILES.I90'
|
||||
|
||||
! WRITE CURRENT DATA TO A SCRATCH FILE
|
||||
|
||||
IF(IACTVFIL .GT. 0 .AND. ISWT .NE. -1) THEN
|
||||
IFILOUT=IACTVFIL+50
|
||||
CALL WRTFIL(IFILOUT)
|
||||
CALL ZEROOUT
|
||||
IACTVFIL=ITOTFIL
|
||||
ELSEIF(IACTVFIL .EQ. 0) THEN
|
||||
IACTVFIL=1
|
||||
ENDIF
|
||||
IF(abs(ISWT) .EQ. 1) THEN
|
||||
ITOTFIL=ITOTFIL+1
|
||||
FNAMKEP='TEST.1.ELE'
|
||||
IACTVFIL=ITOTFIL
|
||||
FNAMEOUT(IACTVFIL)='TEST.1.ELE'
|
||||
WRITE(90,*) 'ITOTFIL,IACTVFIL',ITOTFIL,IACTVFIL
|
||||
WRITE(90,'(A80)') (FNAMEOUT(KKK),KKK=1,3)
|
||||
ENDIF
|
||||
IF(ITRIAN .EQ. 1) THEN
|
||||
CALL READGFG(IIN,1)
|
||||
|
||||
! TEST FOR GFG FORMAT
|
||||
ELSEIF(IGFG .EQ. 1) THEN
|
||||
CALL READGFG(IIN,0)
|
||||
|
||||
! TEST FOR rm1 FORMAT
|
||||
|
||||
ELSEIF(IIN .EQ. 10) THEN
|
||||
CALL READRM1(IIN)
|
||||
|
||||
! TEST FOR rm1 FORMAT
|
||||
|
||||
!ipk feb08 replace iin of 11 with 12
|
||||
ELSEIF(IIN .EQ. 12 .and. IGFG .EQ. 0) THEN
|
||||
CALL READGEO(IIN)
|
||||
|
||||
ELSEIF(IIN .EQ. 12 .and. IGFG .EQ. 2) THEN
|
||||
CALL RDBIN(IIN)
|
||||
|
||||
ENDIF
|
||||
|
||||
IFILOUT=IACTVFIL+50
|
||||
WRITE(90,*) 'IFILOUT', IFILOUT
|
||||
CALL WRTFIL(IFILOUT)
|
||||
IACTVFIL=1
|
||||
CALL LOADFIL
|
||||
|
||||
|
||||
CALL RESCAL
|
||||
CALL HEDR
|
||||
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
! Write data to a file
|
||||
SUBROUTINE WRTFIL(IFILOUT)
|
||||
|
||||
USE BLK1MOD
|
||||
CHARACTER*80 ALINE
|
||||
! INCLUDE 'BLK1.COM'
|
||||
|
||||
CLOSE (IFILOUT)
|
||||
OPEN(IFILOUT,STATUS='scratch',FORM='binary')
|
||||
|
||||
ISLP=0
|
||||
IPRT=1
|
||||
IPNN=1
|
||||
IPEN=1
|
||||
IPO=1
|
||||
IRO=1
|
||||
IPP=0
|
||||
IRFN=0
|
||||
IGEN=0
|
||||
NXZL=0
|
||||
NITST=1
|
||||
ISCTXT=0
|
||||
IFILL=0
|
||||
IALTGM=1
|
||||
NLAYD=0
|
||||
HORIZ=10.
|
||||
VERT=8.
|
||||
XSALE=0.
|
||||
YSALE=0.
|
||||
XFACT=0.
|
||||
YFACT=0.
|
||||
AR=0.
|
||||
ANG=0.
|
||||
xadded=0.
|
||||
yadded=0.
|
||||
ntempin=0.
|
||||
! WRITE(90,*) 'IN GETNEWFIL', IFILOUT,NP,NE,IPRT
|
||||
WRITE(IFILOUT) TITLE,NP,NE
|
||||
WRITE(IFILOUT) ISLP,IPRT,IPNN,IPEN,IPO,IRO,IPP,IRFN &
|
||||
& ,IGEN,NXZL,NITST,ISCTXT,IFILL,IALTGM,NLAYD,xadded,yadded,ntempin
|
||||
! WRITE(90,*) ISLP,IPRT,IPNN,IPEN,IPO,IRO,IPP,IRFN &
|
||||
! & ,IGEN,NXZL,NITST,ISCTXT,IFILL,IALTGM,NLAYD,xadded,yadded,ntempin
|
||||
WRITE(IFILOUT) HORIZ,VERT,XSALE,YSALE,XFACT,YFACT,AR,ANG
|
||||
IF(IPP .GT. 0) WRITE(IFILOUT) ALINE
|
||||
|
||||
WRITE(IFILOUT) ((NOP(J,K),K=1,8),IMAT(J),THTA(J),J=1,NE)
|
||||
WRITE(IFILOUT) &
|
||||
(XUSR(J),YUSR(J),WD(J),WIDTH(J),SS1(J),SS2(J),WIDS(J), &
|
||||
& WIDBS(J),SSO(J),BS1(J),J=1,NP)
|
||||
|
||||
WRITE(IFILOUT) NLST
|
||||
IF(NLST .GT. 0) THEN
|
||||
WRITE(IFILOUT) (LLIST(J),J=1,NLST), &
|
||||
& ((ILIST(J,I),I=1,LLIST(J)),J=1,NLST)
|
||||
ENDIF
|
||||
|
||||
WRITE(IFILOUT) NENTRY,NLAYD,NCLM
|
||||
|
||||
IF(NENTRY .GT. 0) THEN
|
||||
WRITE(IFILOUT) ((NEF(I,J),J=1,3),I=1,NENTRY)
|
||||
ENDIF
|
||||
|
||||
IF(NLAYD .GT. 0) THEN
|
||||
WRITE(IFILOUT) (LAY(I),I=1,NP)
|
||||
ENDIF
|
||||
|
||||
IF(NCLM .GT. 0) THEN
|
||||
WRITE(IFILOUT) ((ICCLN(I,J),J=1,350),I=1,NCLM)
|
||||
ENDIF
|
||||
REWIND IFILOUT
|
||||
RETURN
|
||||
END
|
||||
|
||||
SUBROUTINE READRM1(IIIN)
|
||||
|
||||
USE BLK1MOD
|
||||
! INCLUDE 'BLK1.COM'
|
||||
CHARACTER*48 DLIN
|
||||
|
||||
IIN=IIIN
|
||||
! Read in header lines
|
||||
|
||||
ISET=1
|
||||
WRITE(90,*) 'GOING TO HEADIN'
|
||||
CALL HEADIN(IIN,ISET)
|
||||
|
||||
! Read in existing elements
|
||||
WRITE(90,*) 'GOING TO RDELEM'
|
||||
CALL RDELEM(IIN)
|
||||
|
||||
! Read in nodal coordinates
|
||||
|
||||
WRITE(90,*) 'GOING TO RDCORD'
|
||||
CALL RDCORD(IIN)
|
||||
|
||||
! Close input file
|
||||
|
||||
CLOSE(IIN)
|
||||
|
||||
! Scale for plotting
|
||||
|
||||
IF(NP .GT. 0) THEN
|
||||
DO J=1,NP
|
||||
IF (CORD(J,1) .GT. VDX) THEN
|
||||
XMIN=MIN(XMIN,CORD(J,1))
|
||||
XMAX=MAX(XMAX,CORD(J,1))
|
||||
YMIN=MIN(YMIN,CORD(J,2))
|
||||
YMAX=MAX(YMAX,CORD(J,2))
|
||||
ENDIF
|
||||
ENDDO
|
||||
ENDIF
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
! Read GEO file
|
||||
SUBROUTINE READGEO(IIIN)
|
||||
USE BLK1MOD
|
||||
CHARACTER*1000 HEADER
|
||||
CHARACTER*8 ID8
|
||||
CHARACTER*32 IJNK
|
||||
CHARACTER*80 ALINE,DLIN
|
||||
! INCLUDE 'BLK1.COM'
|
||||
INCLUDE 'BFILES.I90'
|
||||
|
||||
INTEGER*2 NOP2(MAXE,8)
|
||||
|
||||
|
||||
IIN=IIIN
|
||||
read(iin,err=100) header
|
||||
if(header(1:6) .eq. 'RMAGEN') then
|
||||
inopt=2
|
||||
else
|
||||
inopt=1
|
||||
rewind iin
|
||||
endif
|
||||
read(iin) n1,m1
|
||||
rewind iin
|
||||
write(90,*) 'Apparent nodes and elements from file are'
|
||||
write(90,'(i15,i10)') n1,m1
|
||||
if(n1 .gt. maxp .or. m1 .gt. maxe) then
|
||||
!
|
||||
!...... Perhaps the file format is wrong, close and reopen
|
||||
!
|
||||
WRITE(DLIN,'(A32)') 'Parameter limits may be violated'
|
||||
call symbl(0.5,4.5,0.20,dlin,0.0,32)
|
||||
WRITE(DLIN,'(A35)') 'Retrying with alternate file format'
|
||||
call symbl(0.5,4.2,0.20,dlin,0.0,35)
|
||||
close (iin)
|
||||
open(iin ,file=fnamkep,status='old',form='unformatted')
|
||||
read(iin) n1,m1
|
||||
write(90,*) 'Revised nodes and elements from file are'
|
||||
write(90,'(i15,i10)') n1,m1
|
||||
if(n1 .gt. maxp .or. m1 .gt. maxe) then
|
||||
WRITE(DLIN,'(A31)') 'Parameter limits still violated'
|
||||
call symbl(0.5,3.9,0.20,dlin,0.0,31)
|
||||
WRITE(DLIN,'(A27)') 'Apparent nodes and elts are'
|
||||
call symbl(0.5,3.6,0.20,dlin,0.0,27)
|
||||
WRITE(DLIN,'(2i10)') n1,m1
|
||||
call symbl(0.5,3.3,0.20,dlin,0.0,20)
|
||||
WRITE(DLIN,'(A24)') 'Press enter to terminate'
|
||||
call symbl(0.5,4.5,0.20,dlin,0.0,24)
|
||||
CALL GTCHARX(ijnk,ndig,5.0,4.0)
|
||||
!cipk aug00 read(*,'(i1)') junk
|
||||
call quit_pgm
|
||||
endif
|
||||
endif
|
||||
rewind iin
|
||||
!
|
||||
!
|
||||
if(inopt .eq. 2) then
|
||||
read(iin,err=100) header
|
||||
READ(IIN,ERR=100) &
|
||||
& N1,M1,((CORD(J,K),K=1,2),ALPHA,WD(J),J=1,N1), &
|
||||
& ((NOP(J,K),K=1,8),IMAT(J),THTA(J),I3,J=1,M1) &
|
||||
& , (WIDTH(J),SS1(J),SS2(J),WIDS(J),J=1,N1)
|
||||
DO J=1,N1
|
||||
XUSR(J)=CORD(J,1)
|
||||
YUSR(J)=CORD(J,2)
|
||||
ENDDO
|
||||
!
|
||||
else
|
||||
READ(IIN,ERR=100) &
|
||||
& N1,M1,((CORDSN(J,K),K=1,2),ALPHA,WD(J),J=1,N1), &
|
||||
& ((NOP2(J,K),K=1,8),IMAT(J),THTA(J),I32,J=1,M1) &
|
||||
& , (WIDTH(J),SS1(J),SS2(J),WIDS(J),J=1,N1)
|
||||
DO J=1,N1
|
||||
DO K=1,2
|
||||
CORD(J,K)=CORDSN(J,K)
|
||||
ENDDO
|
||||
XUSR(J)=CORD(J,1)
|
||||
YUSR(J)=CORD(J,2)
|
||||
ENDDO
|
||||
DO J=1,M1
|
||||
!ipk feb08
|
||||
ncorn(j)=0
|
||||
DO K=1,8
|
||||
NOP(J,K)=NOP2(J,K)
|
||||
!ipk feb08
|
||||
if(nop(j,k) .gt. 0) ncorn(j)=k
|
||||
ENDDO
|
||||
ENDDO
|
||||
endif
|
||||
read(IIN,err=120,end=120) id8
|
||||
if(id8(1:6) .eq. 'part-2') then
|
||||
read(IIN,err=104) (widbs(j),sso(j),j=1,n1)
|
||||
read(IIN,err=120,end=120) id8
|
||||
endif
|
||||
|
||||
! Add part 3 write for continuity lines
|
||||
if(id8(1:6) .eq. 'part-3') then
|
||||
|
||||
!ipk aug02 IF(NCLM .GT. 0) THEN
|
||||
READ(IIN,ERR=104) NCLM,((ICCLN(I,J),J=1,350),I=1,NCLM)
|
||||
!ipk aug02 ENDIF
|
||||
read(IIN,err=120,end=120) id8
|
||||
endif
|
||||
!IPK DEB02 Add part 4 write for lock and BS1 lines and reordering
|
||||
if(id8(1:6) .eq. 'part-4') then
|
||||
read(iin,err=104,end=120) (lock(j),bs1(j),j=1,n1)
|
||||
read(iin,err=104,end=120) &
|
||||
nlst,((ilist(j,k),k=1,maeln),llist(j),j=1,maxln)
|
||||
endif
|
||||
DO J=1,M1
|
||||
!ipk feb08
|
||||
ncorn(j)=0
|
||||
DO K=1,8
|
||||
!ipk feb08
|
||||
if(nop(j,k) .gt. 0) ncorn(j)=k
|
||||
ENDDO
|
||||
ENDDO
|
||||
|
||||
GO TO 120
|
||||
|
||||
100 READ(IIN,ERR=104) &
|
||||
& N1,M1,((CORDSN(J,K),K=1,2),ALPHA,WD(J),J=1,N1), &
|
||||
& ((NOP2(J,K),K=1,8),IMAT(J),THTA(J),I32,J=1,M1)
|
||||
DO J=1,N1
|
||||
DO K=1,2
|
||||
CORD(J,K)=CORDSN(J,K)
|
||||
ENDDO
|
||||
XUSR(J)=CORD(J,1)
|
||||
YUSR(J)=CORD(J,2)
|
||||
ENDDO
|
||||
DO J=1,M1
|
||||
!ipk feb08
|
||||
ncorn(j)=0
|
||||
DO K=1,8
|
||||
NOP(J,K)=NOP2(J,K)
|
||||
!ipk feb08
|
||||
if(nop(j,k) .gt. 0) ncorn(j)=k
|
||||
ENDDO
|
||||
ENDDO
|
||||
GO TO 120
|
||||
|
||||
104 WRITE(90,*) 'Error reading binary geometry file'
|
||||
!ipk jan98 CALL SETD(23)
|
||||
call clscrn()
|
||||
WRITE(aline,*) 'Error reading binary geometry file'
|
||||
call symbl &
|
||||
& (1.1,3.3,0.20,aline,0.0,80)
|
||||
WRITE(aline,*) 'Press enter to exit'
|
||||
call symbl &
|
||||
& (1.1,3.0,0.20,aline,0.0,80)
|
||||
ndig=1
|
||||
CALL GTCHARX(IJNK,NDIG,5.0,7.6)
|
||||
CALL Quit_Pgm
|
||||
STOP
|
||||
|
||||
120 CONTINUE
|
||||
NP=N1
|
||||
NE=M1
|
||||
|
||||
! Close input file
|
||||
|
||||
CLOSE(IIN)
|
||||
|
||||
! Scale for plotting
|
||||
|
||||
IF(NP .GT. 0) THEN
|
||||
DO J=1,NP
|
||||
IF (CORD(J,1) .GT. VDX) THEN
|
||||
XMIN=MIN(XMIN,CORD(J,1))
|
||||
XMAX=MAX(XMAX,CORD(J,1))
|
||||
YMIN=MIN(YMIN,CORD(J,2))
|
||||
YMAX=MAX(YMAX,CORD(J,2))
|
||||
ENDIF
|
||||
ENDDO
|
||||
ENDIF
|
||||
RETURN
|
||||
|
||||
END
|
||||
|
||||
SUBROUTINE READGFG(IUNIT,ISW)
|
||||
|
||||
USE BLK1MOD
|
||||
INCLUDE "BFILES.I90"
|
||||
! INCLUDE 'BLK1.COM'
|
||||
CHARACTER*1 ANS
|
||||
CHARACTER*32 ANS32
|
||||
CHARACTER*3 ID
|
||||
CHARACTER*77 DLIN
|
||||
CHARACTER*150 DLIN1
|
||||
CHARACTER*80 LIND
|
||||
DIMENSION NTMP(9),NTEMPLIN(200,10),ATT(9)
|
||||
|
||||
REAL*8 CX,CY,VALS(7)
|
||||
|
||||
MEL=MAXE
|
||||
ylv=7.5
|
||||
IIN=IUNIT
|
||||
IPRT=1
|
||||
IPNN=1
|
||||
IPEN=1
|
||||
IPO=1
|
||||
IRO=1
|
||||
IPP=0
|
||||
IRFN=0
|
||||
IGEN=0
|
||||
NXZL=0
|
||||
NITST=1
|
||||
ISCTXT=0
|
||||
IFILL=0
|
||||
IALTGM=1
|
||||
NLAYD=0
|
||||
HORIZ=10.
|
||||
VERT=8.
|
||||
XSALE=0.
|
||||
YSALE=0.
|
||||
XFACT=0.
|
||||
YFACT=0.
|
||||
AR=0.
|
||||
ANG=0.
|
||||
xadded=0.
|
||||
yadded=0.
|
||||
ntempin=0.
|
||||
KLIN=0
|
||||
IF(ISW .EQ. 1) GO TO 500
|
||||
DO I=1,10000
|
||||
READ(IIN,'(A3,A77)') ID,DLIN
|
||||
IF(ID .EQ. 'T1 ') THEN
|
||||
TITLE(1:77)=DLIN
|
||||
GO TO 10
|
||||
ENDIF
|
||||
ENDDO
|
||||
10 CONTINUE
|
||||
REWIND IIN
|
||||
|
||||
! READ ELEMENT AND CCLINE DATA
|
||||
|
||||
20 CONTINUE
|
||||
DO ICOUNTC=1,200000
|
||||
DO JJ=1,150
|
||||
DLIN1(JJ:JJ)=' '
|
||||
ENDDO
|
||||
READ(IIN,'(A3,A150)', END=175) ID,DLIN1
|
||||
IF(ID .EQ. 'GE ' .or. ID .EQ. 'GO') THEN
|
||||
! Count the number of variables
|
||||
I=0
|
||||
ICOUNT=0
|
||||
25 CONTINUE
|
||||
IF(DLIN1(I+1:I+1) .NE. ' ') THEN
|
||||
GO TO 30
|
||||
ELSE
|
||||
I=I+1
|
||||
GO TO 25
|
||||
ENDIF
|
||||
30 I=I+1
|
||||
IF(I .EQ. 151) THEN
|
||||
ICOUNT =ICOUNT+1
|
||||
GO TO 40
|
||||
ENDIF
|
||||
IF(DLIN1(I:I) .EQ. ' ' .OR. DLIN1(I:I) .EQ. ',') THEN
|
||||
ICOUNT=ICOUNT+1
|
||||
35 CONTINUE
|
||||
IF(I+1 .EQ. 151) GO TO 40
|
||||
IF(DLIN1(I+1:I+1) .EQ. ' ') THEN
|
||||
I=I+1
|
||||
GO TO 35
|
||||
ELSE
|
||||
GO TO 30
|
||||
ENDIF
|
||||
ELSE
|
||||
GO TO 30
|
||||
ENDIF
|
||||
ENDIF
|
||||
ENDDO
|
||||
40 CONTINUE
|
||||
IF(ID .EQ. 'GO') THEN
|
||||
KLIN=KLIN+1
|
||||
READ(DLIN1,*) (NTEMPLIN(KLIN,K),K=1,ICOUNT)
|
||||
GO TO 20
|
||||
ENDIF
|
||||
IF(ICOUNT .GT. 10) THEN
|
||||
READ(DLIN1,*) J, (NTMP(K),K=1,9),THT
|
||||
ELSE
|
||||
READ(DLIN1,*) J, (NTMP(K),K=1,9)
|
||||
ENDIF
|
||||
|
||||
|
||||
IF (J .GE. MEL) THEN
|
||||
CALL SETD(23)
|
||||
!cipk aug00
|
||||
WRITE(lind,*) ' Element number exceeds MAXE in RDELEM'
|
||||
call symbl (1.1,ylv-0.3,0.20,lind,0.0,80)
|
||||
ndig=1
|
||||
WRITE(90,*) ' Element number exceeds MAXE in RDELEM'
|
||||
WRITE(lind,6000)
|
||||
CALL GTCHARX(ANS32,IJNK,5.0,4.0)
|
||||
CALL Quit_Pgm
|
||||
STOP
|
||||
ENDIF
|
||||
!
|
||||
! Check to ensure there are no duplicate numbers in input stream
|
||||
! of element connections
|
||||
!
|
||||
DO K=1,7
|
||||
IF(NTMP(K) .NE. 0) THEN
|
||||
DO L=K+1,8
|
||||
IF(NTMP(K) .EQ. NTMP(L)) THEN
|
||||
CALL SETD(23)
|
||||
DO KK=1,8
|
||||
NOP(J,KK) = NTMP(KK)
|
||||
ENDDO
|
||||
IMAT(J)=NTMP(9)
|
||||
call eltdisp(j)
|
||||
DO KK=1,8
|
||||
NTMP(KK) = NOP(J,KK)
|
||||
ENDDO
|
||||
NTMP(9)=IMAT(J)
|
||||
GO TO 45
|
||||
ENDIF
|
||||
ENDDO
|
||||
ENDIF
|
||||
ENDDO
|
||||
45 CONTINUE
|
||||
DO K=1,8
|
||||
NOP(J,K) = NTMP(K)
|
||||
ND = NTMP(K)
|
||||
IF (ND .GT. 0) THEN
|
||||
INEW(ND) = 2
|
||||
NP = MAX(NP,ND)
|
||||
ENDIF
|
||||
ENDDO
|
||||
!
|
||||
NCN = 2
|
||||
IF (NOP(J,3) .NE. 0) NCN = 3
|
||||
IF (NOP(J,4) .NE. 0) NCN = 4
|
||||
IF (NOP(J,5) .NE. 0 .AND. NOP(J,4) .NE. 0) NCN = 5
|
||||
IF (NOP(J,5) .NE. 0 .AND. NOP(J,4) .EQ. 0) NCN = 6
|
||||
IF (NOP(J,6) .NE. 0) NCN = 6
|
||||
IF (NOP(J,7) .NE. 0) NCN = 8
|
||||
NCORN(J) = NCN
|
||||
IESKP(J) = 0
|
||||
IMAT(J) = NTMP(9)
|
||||
THTA(J)=THT
|
||||
IEM(J) = J
|
||||
DO 50 K=2,NCN,2
|
||||
ND = NTMP(K)
|
||||
IF (ND .GT. 0) THEN
|
||||
IF(NCN .EQ. 5 .AND. K .EQ. 4) GO TO 50
|
||||
WD(ND)=0.
|
||||
ENDIF
|
||||
50 CONTINUE
|
||||
NE = MAX(J,NE)
|
||||
!
|
||||
GOTO 20
|
||||
!
|
||||
175 CONTINUE
|
||||
|
||||
REWIND IIN
|
||||
70 CONTINUE
|
||||
DO ICOUNTC=1,100000
|
||||
DO JJ=1,150
|
||||
DLIN1(JJ:JJ)=' '
|
||||
ENDDO
|
||||
READ(IIN,'(A3,A150)', END=400) ID,DLIN1
|
||||
IF(ID .EQ. 'GNN' .OR. ID .EQ. 'GWN') THEN
|
||||
! Count the number of variables
|
||||
I=0
|
||||
ICOUNT=0
|
||||
75 CONTINUE
|
||||
IF(DLIN1(I+1:I+1) .NE. ' ') THEN
|
||||
GO TO 80
|
||||
ELSE
|
||||
I=I+1
|
||||
GO TO 75
|
||||
ENDIF
|
||||
80 I=I+1
|
||||
IF(I .EQ. 151) THEN
|
||||
ICOUNT =ICOUNT+1
|
||||
GO TO 90
|
||||
ENDIF
|
||||
IF(DLIN1(I:I) .EQ. ' ' .OR. DLIN1(I:I) .EQ. ',') THEN
|
||||
ICOUNT=ICOUNT+1
|
||||
85 CONTINUE
|
||||
IF(I+1 .EQ. 151) GO TO 90
|
||||
IF(DLIN1(I+1:I+1) .EQ. ' ') THEN
|
||||
I=I+1
|
||||
GO TO 85
|
||||
ELSE
|
||||
GO TO 80
|
||||
ENDIF
|
||||
ELSE
|
||||
GO TO 80
|
||||
ENDIF
|
||||
ENDIF
|
||||
ENDDO
|
||||
90 CONTINUE
|
||||
DO K=1,7
|
||||
VALS(K)=0.
|
||||
ENDDO
|
||||
READ(DLIN1,*) J,(VALS(K),K=1,ICOUNT-1)
|
||||
IF(ID .EQ. 'GNN') THEN
|
||||
CX=VALS(1)
|
||||
CY=VALS(2)
|
||||
BELEV=VALS(3)
|
||||
NP = MAX(NP,J)
|
||||
CORD(J,1) = CX
|
||||
CORD(J,2) = CY
|
||||
XUSR(J) = CX
|
||||
YUSR(J) = CY
|
||||
WD(J) = BELEV
|
||||
INSKP(J)=0
|
||||
INEW(J) = 1
|
||||
GO TO 70
|
||||
ELSE
|
||||
WDTHX=VALS(1)
|
||||
SS1X=VALS(2)
|
||||
SS2X=VALS(3)
|
||||
WDSX=VALS(4)
|
||||
WIDTH(J)=WDTHX
|
||||
SS1(J)=SS1X
|
||||
SS2(J)=SS2X
|
||||
WIDS(J)=WDSX
|
||||
GO TO 70
|
||||
ENDIF
|
||||
|
||||
400 CONTINUE
|
||||
|
||||
! CHECKOUT THE CCLINE DATA
|
||||
|
||||
KK=0
|
||||
IF(KLIN .GT. 0) THEN
|
||||
NCLM=1
|
||||
IF(NTEMPLIN(1,1) .EQ. 1) THEN
|
||||
DO K=1,KLIN
|
||||
DO J=1,10
|
||||
IF(K .EQ. 1 .AND. J .EQ. 1) GO TO 410
|
||||
IF(NTEMPLIN(K,J) .LT. 0) THEN
|
||||
NCLM=NCLM+1
|
||||
KK=0
|
||||
GO TO 420
|
||||
ELSEIF(NTEMPLIN(K,J) .EQ. 0) THEN
|
||||
GO TO 420
|
||||
ELSE
|
||||
KK=KK+1
|
||||
ICCLN(NCLM,KK)=NTEMPLIN(K,J)
|
||||
ENDIF
|
||||
410 CONTINUE
|
||||
ENDDO
|
||||
420 CONTINUE
|
||||
ENDDO
|
||||
NCLM=NCLM-1
|
||||
ENDIF
|
||||
ENDIF
|
||||
RETURN
|
||||
|
||||
500 CONTINUE
|
||||
|
||||
READ(IUNIT,*) NE,NCNTR,NATTR
|
||||
IMIDS=0
|
||||
DO JJ=1,NE
|
||||
READ(IUNIT,*) J,(NTMP(K),K=1,NCNTR),(ATT(K),K=1,NATTR)
|
||||
IF (J .GE. MEL) THEN
|
||||
CALL SETD(23)
|
||||
WRITE(lind,*) ' Element number exceeds MAXE in RDELEM'
|
||||
call symbl &
|
||||
& (1.1,ylv-0.3,0.20,lind,0.0,80)
|
||||
ndig=1
|
||||
WRITE(90,*) ' Element number exceeds MAXE in RDELEM'
|
||||
WRITE(lind,6000)
|
||||
CALL GTCHARX(ANS32,IJNK,5.0,4.0)
|
||||
CALL Quit_Pgm
|
||||
STOP
|
||||
ENDIF
|
||||
DO KK=1,3
|
||||
NOP(J,2*KK-1) = NTMP(KK)
|
||||
NOP(J,2*KK)=0
|
||||
ENDDO
|
||||
IF(NATTR .GT. 0) THEN
|
||||
IMAT(J)=ATT(1)
|
||||
ELSE
|
||||
IMAT(J)=1
|
||||
ENDIF
|
||||
NCORN(J)=6
|
||||
IESKP(J)=0
|
||||
ENDDO
|
||||
CLOSE(IUNIT)
|
||||
DO L=255,1,-1
|
||||
IF(FNAMKEP(L:L) .EQ. '.') THEN
|
||||
FNAMKEP(L+1:L+4)='node'
|
||||
OPEN(IUNIT,FILE=FNAMKEP,STATUS='OLD',ACTION='READ')
|
||||
GO TO 510
|
||||
ENDIF
|
||||
ENDDO
|
||||
510 CONTINUE
|
||||
|
||||
READ(IUNIT,*) NPPP,NDUM,NATTR
|
||||
DO KK=1,NPPP
|
||||
READ(IUNIT,*) J,CX,CY,(VALS(K),K=1,NATTR)
|
||||
IF(J .EQ. 0) THEN
|
||||
J=NPPP
|
||||
JZ=1
|
||||
ENDIF
|
||||
BELEV=-9999.
|
||||
WEL=0.
|
||||
LOCK1=0
|
||||
IF(NATTR .GT. 0) BELEV=VALS(1)
|
||||
IF (J .GE. MAXP) THEN
|
||||
call clscrn()
|
||||
WRITE(dlin,*) ' Node number exceeds MAXP in RDCORD',j
|
||||
call symbl &
|
||||
& (1.1,3.3,0.20,dlin,0.0,80)
|
||||
WRITE(90,*) ' Node number exceeds MAXP in RDCORD'
|
||||
WRITE(DLIN,*) ' Press enter to exit'
|
||||
call symbl &
|
||||
& (1.1,3.0,0.20,dlin,0.0,80)
|
||||
ndig=1
|
||||
CALL GTCHARX(ANS32,ndig,5.0,4.0)
|
||||
CALL Quit_Pgm
|
||||
STOP
|
||||
ENDIF
|
||||
NP = MAX(NP,J)
|
||||
CORD(J,1) = CX
|
||||
CORD(J,2) = CY
|
||||
XUSR(J) = CX
|
||||
YUSR(J) = CY
|
||||
WD(J) = BELEV
|
||||
WIDTH(J)=0.
|
||||
SS1(J)=0.
|
||||
SS2(J)=0.
|
||||
WIDS(J)=0.
|
||||
WIDBS(J)=0.
|
||||
SSO(J)=0.
|
||||
INSKP(J)=0
|
||||
INEW(J) = 1
|
||||
LOCK(J)=LOCK1
|
||||
BS1(J)=0.
|
||||
ENDDO
|
||||
|
||||
CLOSE(IUNIT)
|
||||
6000 FORMAT(' Press enter to exit')
|
||||
END
|
||||
|
||||
|
||||
SUBROUTINE ZEROOUT
|
||||
|
||||
USE BLK1MOD
|
||||
! INCLUDE 'BLK1.COM'
|
||||
|
||||
MNP = MAXP
|
||||
MEL = MAXE
|
||||
DO I=1,MEL
|
||||
DO M=1,8
|
||||
NOP(I,M)=0
|
||||
ENDDO
|
||||
IESKP(I)=-1
|
||||
IEM(I) = 0
|
||||
IMAT(I) = 0
|
||||
THTA(I)=0.
|
||||
XC(I) = -1.E20
|
||||
YC(I) = -1.E20
|
||||
ENDDO
|
||||
DO I=1,MNP
|
||||
XUSR(I) = -1.D20
|
||||
YUSR(I) = -1.D20
|
||||
CORD(I,1) = -1.D20
|
||||
CORD(I,2) = -1.D20
|
||||
WD(I) = -9999.
|
||||
LAY(I) = -9999
|
||||
WIDTH(I) = 0.0
|
||||
SS1(I) = 0.0
|
||||
SS2(I) = 0.0
|
||||
WIDS(I) = 0.0
|
||||
WIDBS(I)=0.
|
||||
SSO(I)=0.
|
||||
INSKP(I) = 1
|
||||
INEW(I) = 0
|
||||
!ipk mar02
|
||||
lock(i)=0
|
||||
bs1(I)=0.
|
||||
ENDDO
|
||||
NP=0
|
||||
NE=0
|
||||
RETURN
|
||||
END
|
||||
|
||||
Binary file not shown.
@ -1,4 +1,4 @@
|
||||
REAL*8 XS,YS,TXSCAL
|
||||
INTEGER IRGB
|
||||
COMMON /TXFRM/ XS, YS, TXSCAL,IRGB
|
||||
INTEGER IRGB,IDDSW
|
||||
COMMON /TXFRM/ XS, YS, TXSCAL,IRGB,IDDSW
|
||||
|
||||
|
||||
@ -0,0 +1,239 @@
|
||||
SUBROUTINE ADDMESHT
|
||||
|
||||
USE BLK1MOD
|
||||
USE WINTERACTER
|
||||
INCLUDE 'BFILES.I90'
|
||||
INCLUDE 'TXFRM.COM'
|
||||
|
||||
INTEGER OUTPOL,TWO,ZERO,IFILOUT
|
||||
INTEGER NTRIAN(5000,2),ICT
|
||||
REAL XMAP1(5000),YMAP1(5000)
|
||||
|
||||
CHARACTER*1 ANSW(10),ANS
|
||||
CHARACTER(LEN=80) :: DATAIN,OPTIONS
|
||||
LOGICAL EXISTS
|
||||
DATA ANSW/' ',' ',' ',' ',' ','b','n','z','r','q'/
|
||||
do k=1,80
|
||||
options(k:k)=' '
|
||||
enddo
|
||||
TWO=2
|
||||
ZERO=0
|
||||
OUTPOL=23
|
||||
ICT=0
|
||||
! add headers
|
||||
NHTPSV=NHTP
|
||||
NMESSSV=NMESS
|
||||
NBRRSV=NBRR
|
||||
NHTP=0
|
||||
NMESS=48
|
||||
NBRR=5
|
||||
call hedr
|
||||
! go and get points to form outline
|
||||
200 CALL xyloc(XTEMP,YTEMP,ans,IBOX)
|
||||
siz=0.1
|
||||
call drawcr(xtemp,ytemp,siz)
|
||||
IF(IRMAIN .EQ. 1) RETURN
|
||||
!
|
||||
IF(ANS .EQ. 'c') THEN
|
||||
if(ibox .eq. 0) go to 400
|
||||
I=IBOX
|
||||
ANS=ANSW(I)
|
||||
ENDIF
|
||||
IF(ANS .EQ. 'b') THEN
|
||||
ICT=ICT-1
|
||||
GO TO 200
|
||||
ELSEIF(ANS .EQ. 'n') THEN
|
||||
GO TO 500
|
||||
ELSEIF(ANS .EQ. 'q') THEN
|
||||
RETURN
|
||||
ENDIF
|
||||
400 ICT=ICT+1
|
||||
XMAP1(ICT) = XTEMP*TXSCAL - XS
|
||||
YMAP1(ICT) = YTEMP*TXSCAL - XS
|
||||
IF(ICT .GT. 1) THEN
|
||||
NTRIAN(ICT-1,1)=ICT-1
|
||||
NTRIAN(ICT-1,2)=ICT
|
||||
ENDIF
|
||||
GO TO 200
|
||||
500 CONTINUE
|
||||
NTRIAN(ICT,1)=ICT
|
||||
NTRIAN(ICT,2)=1
|
||||
|
||||
! write current data to a scratch file for later addition
|
||||
|
||||
IF(IACTVFIL .GT. 0) THEN
|
||||
CALL WRTFIL(50)
|
||||
IFILOUT=IACTVFIL+50
|
||||
CALL WRTFIL(IFILOUT)
|
||||
CALL ZEROOUT
|
||||
IACTVFIL=ITOTFIL
|
||||
ELSE
|
||||
IACTVFIL=1
|
||||
ENDIF
|
||||
|
||||
! clear screen
|
||||
CALL clscrn
|
||||
|
||||
! form TRIANG file
|
||||
|
||||
OPEN(OUTPOL,FILE='TEST.POLY', STATUS='UNKNOWN')
|
||||
WRITE(OUTPOL,*) ICT,TWO,ZERO,ZERO
|
||||
DO K=1,ICT
|
||||
WRITE(OUTPOL,*) K,XMAP1(K),YMAP1(K)
|
||||
ENDDO
|
||||
WRITE(OUTPOL,*) ICT,ZERO
|
||||
DO J=1, ICT
|
||||
WRITE(OUTPOL,*) J,ntrian(J,1),ntrian(J,2)
|
||||
ENDDO
|
||||
WRITE(OUTPOL,*) ZERO
|
||||
FLUSH (OUTPOL)
|
||||
REWIND (OUTPOL)
|
||||
CLOSE (OUTPOL)
|
||||
|
||||
! OPTIONS = ' -pqa5000V TEST'
|
||||
OPTIONS(1:3) = ' -p'
|
||||
nct=3
|
||||
! iswq=1
|
||||
! iswy=0
|
||||
! id1=105
|
||||
CALL PANELFILLT(ISWQ,ISWY,ID1)
|
||||
|
||||
IF(ISWQ .EQ. 1) THEN
|
||||
NCT=NCT+1
|
||||
OPTIONS(NCT:NCT)='q'
|
||||
ENDIF
|
||||
IF(ISWY .EQ. 1) THEN
|
||||
NCT=NCT+1
|
||||
OPTIONS(NCT:NCT)='q'
|
||||
ENDIF
|
||||
ID1=ID1**2/2
|
||||
WRITE(OPTIONS(NCT+1:NCT+12),'(''a'',I6.6,'' TEST'')') ID1
|
||||
! go to TRIANGLE
|
||||
! INQUIRE (FILE = 'test.1.ele', EXIST = exists)
|
||||
! if(exists) then
|
||||
! open(77,file= 'test.1.ele')
|
||||
! close(77,status='DELETE')
|
||||
! ENDIF
|
||||
!
|
||||
! INQUIRE (FILE = 'test.1.node', EXIST = exists)
|
||||
! if(exists) then
|
||||
! open(77,file= 'test.1.node')
|
||||
! close(77,status='DELETE')
|
||||
! ENDIF
|
||||
!
|
||||
! INQUIRE (FILE = 'test.1.poly', EXIST = exists)
|
||||
! if(exists) then
|
||||
! open(77,file= 'test.1.poly')
|
||||
! close(77,status='DELETE')
|
||||
! ENDIF
|
||||
!
|
||||
!RESULT= RUNQQ("C:\Program Files\RMA\TRIANGLE", OPTIONS)
|
||||
! RESULT= RUNQQ("TRIANGLE", OPTIONS)
|
||||
|
||||
IIN=10
|
||||
OPEN(IIN,FILE='TEST.1.ELE', STATUS='OLD')
|
||||
|
||||
write(155,*) 'going to get newfile'
|
||||
CALL GETNEWFIL(IIN,0,1,-1)
|
||||
IADD=50+iactvfil+1
|
||||
CALL RDTOCLIP(IADD)
|
||||
|
||||
IF(IADD .EQ. 51) THEN
|
||||
write(90,*) 'finished addmesh'
|
||||
|
||||
NHTP=NHTPSV
|
||||
NMESS=NMESSSV
|
||||
NBRR=NBRRSV
|
||||
call hedr
|
||||
ELSE
|
||||
CALL ADDMESH(0)
|
||||
NHTP=NHTPSV
|
||||
NMESS=NMESSSV
|
||||
NBRR=NBRRSV
|
||||
call hedr
|
||||
|
||||
CALL WMessageBox(YesNo,QuestionIcon,CommonOK,'Do you wish to delete unused nodes?'//&
|
||||
CHAR(13)//' ','Delete unused nodes?')
|
||||
!
|
||||
! If answer 'No', return
|
||||
!
|
||||
IF (WInfoDialog(4).EQ.2) return
|
||||
!
|
||||
! Delete all unused nodes
|
||||
!
|
||||
CALL DELETM(2)
|
||||
|
||||
ENDIF
|
||||
|
||||
! get new mesh
|
||||
! add meshes together
|
||||
RETURN
|
||||
END
|
||||
|
||||
SUBROUTINE UNDOGEN
|
||||
USE BLK1MOD
|
||||
ALLOCATABLE NODETRAN(:)
|
||||
DATA VDX9/-9.E9/
|
||||
|
||||
! Loop through nodes assigning new number and adding to list
|
||||
|
||||
IF(.NOT. ALLOCATED(NODETRAN)) ALLOCATE (NODETRAN(maxp))
|
||||
|
||||
CALL ZEROOUT
|
||||
IADD=50
|
||||
CALL RDTOCLIP(IADD)
|
||||
|
||||
DO N=1,NPSTO(1)
|
||||
IF(XUSRSTO(N,1) .GT. VDX9) THEN
|
||||
CALL GETNOD(J)
|
||||
NODETRAN(N)=J
|
||||
XUSR(J)=XUSRSTO(N,1)
|
||||
YUSR(J)=YUSRSTO(N,1)
|
||||
WD(J)=WDSTO(N,1)
|
||||
WIDTH(J)=WIDTHSTO(N,1)
|
||||
SS1(J)=SS1STO(N,1)
|
||||
SS2(J)=SS2STO(N,1)
|
||||
WIDS(J)=WIDSSTO(N,1)
|
||||
WIDBS(J)=WIDBSSTO(N,1)
|
||||
SSO(J)=SSOSTO(N,1)
|
||||
BS1(J)=BS1STO(N,1)
|
||||
INSKP(J) = 0
|
||||
INEW(J) = 1
|
||||
ENDIF
|
||||
ENDDO
|
||||
|
||||
! Loop through elements assigning new number and adding to list
|
||||
|
||||
DO N=1,NESTO(1)
|
||||
IF(IMATSTO(N,1) .GT. 0) THEN
|
||||
CALL GETELM(M)
|
||||
DO K=1,8
|
||||
IF(NOPSTO(N,K,1) .GT. 0) THEN
|
||||
J=NODETRAN(NOPSTO(N,K,1))
|
||||
NOP(M,K)=J
|
||||
ELSE
|
||||
NOP(M,K)=0
|
||||
ENDIF
|
||||
ENDDO
|
||||
IMAT(M)=IMATSTO(N,1)
|
||||
THTA(M)=THTASTO(N,1)
|
||||
IESKP(M)=0
|
||||
NCN = 2
|
||||
IF (NOP(M,3) .NE. 0) NCN = 3
|
||||
IF (NOP(M,4) .NE. 0) NCN = 4
|
||||
IF (NOP(M,5) .NE. 0 .AND. NOP(M,4) .NE. 0) NCN = 5
|
||||
IF (NOP(M,5) .NE. 0 .AND. NOP(M,4) .EQ. 0) NCN = 6
|
||||
IF (NOP(M,6) .NE. 0) NCN = 6
|
||||
IF (NOP(M,7) .NE. 0) NCN = 8
|
||||
NCORN(M) = NCN
|
||||
|
||||
ENDIF
|
||||
ENDDO
|
||||
|
||||
! if(iswt .eq. 0) CALL RESCAL
|
||||
CALL RESCAL
|
||||
CALL HEDR
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
@ -0,0 +1,307 @@
|
||||
SUBROUTINE ADDMESHT
|
||||
|
||||
USE BLK1MOD
|
||||
USE WINTERACTER
|
||||
INCLUDE 'BFILES.I90'
|
||||
INCLUDE 'TXFRM.COM'
|
||||
|
||||
INTEGER OUTPOL,TWO,ZERO,IFILOUT
|
||||
INTEGER NTRIAN(5000,2),ICT
|
||||
REAL XMAP1(5000),YMAP1(5000)
|
||||
|
||||
CHARACTER*1 ANSW(10),ANS
|
||||
CHARACTER(LEN=80) :: DATAIN,OPTIONS
|
||||
CHARACTER(LEN=96) :: LOCDIR
|
||||
LOGICAL EXISTS
|
||||
DATA ANSW/' ',' ',' ',' ',' ','b','n','z','r','q'/
|
||||
do k=1,80
|
||||
options(k:k)=' '
|
||||
enddo
|
||||
TWO=2
|
||||
ZERO=0
|
||||
OUTPOL=23
|
||||
ICT=0
|
||||
! add headers
|
||||
NHTPSV=NHTP
|
||||
NMESSSV=NMESS
|
||||
NBRRSV=NBRR
|
||||
NHTP=0
|
||||
NMESS=48
|
||||
NBRR=5
|
||||
call hedr
|
||||
! go and get points to form outline
|
||||
200 CALL xyloc(XTEMP,YTEMP,ans,IBOX)
|
||||
siz=0.1
|
||||
call drawcr(xtemp,ytemp,siz)
|
||||
IF(IRMAIN .EQ. 1) RETURN
|
||||
!
|
||||
IF(ANS .EQ. 'c') THEN
|
||||
if(ibox .eq. 0) go to 400
|
||||
I=IBOX
|
||||
ANS=ANSW(I)
|
||||
ENDIF
|
||||
IF(ANS .EQ. 'b') THEN
|
||||
ICT=ICT-1
|
||||
GO TO 200
|
||||
ELSEIF(ANS .EQ. 'n') THEN
|
||||
GO TO 500
|
||||
ELSEIF(ANS .EQ. 'q') THEN
|
||||
RETURN
|
||||
ENDIF
|
||||
400 ICT=ICT+1
|
||||
XMAP1(ICT) = XTEMP*TXSCAL - XS
|
||||
YMAP1(ICT) = YTEMP*TXSCAL - YS
|
||||
IF(ICT .GT. 1) THEN
|
||||
NTRIAN(ICT-1,1)=ICT-1
|
||||
NTRIAN(ICT-1,2)=ICT
|
||||
ENDIF
|
||||
GO TO 200
|
||||
500 CONTINUE
|
||||
NTRIAN(ICT,1)=ICT
|
||||
NTRIAN(ICT,2)=1
|
||||
|
||||
! write current data to a scratch file for later addition
|
||||
IFILOUT=IACTVFIL+50
|
||||
CALL WRTFIL(IFILOUT)
|
||||
!
|
||||
! IF(IACTVFIL .GT. 0) THEN
|
||||
! CALL WRTFIL(50)
|
||||
! IFILOUT=IACTVFIL+50
|
||||
! CALL WRTFIL(IFILOUT)
|
||||
! CALL ZEROOUT
|
||||
! IACTVFIL=ITOTFIL
|
||||
! ELSE
|
||||
! IACTVFIL=1
|
||||
! ENDIF
|
||||
!
|
||||
!! clear screen
|
||||
! CALL clscrn
|
||||
|
||||
! form TRIANG file
|
||||
|
||||
OPEN(OUTPOL,FILE='TEST.POLY', STATUS='UNKNOWN')
|
||||
WRITE(OUTPOL,*) ICT,TWO,ZERO,ZERO
|
||||
DO K=1,ICT
|
||||
WRITE(OUTPOL,*) K,XMAP1(K),YMAP1(K)
|
||||
ENDDO
|
||||
WRITE(OUTPOL,*) ICT,ZERO
|
||||
DO J=1, ICT
|
||||
WRITE(OUTPOL,*) J,ntrian(J,1),ntrian(J,2)
|
||||
ENDDO
|
||||
WRITE(OUTPOL,*) ZERO
|
||||
FLUSH (OUTPOL)
|
||||
REWIND (OUTPOL)
|
||||
CLOSE (OUTPOL)
|
||||
|
||||
! OPTIONS = ' -pqa5000V TEST'
|
||||
OPTIONS(1:3) = ' -p'
|
||||
nct=3
|
||||
iswq=1
|
||||
iswy=0
|
||||
id1=100
|
||||
CALL PANELFILLT(ISWQ,ISWY,ID1)
|
||||
|
||||
IF(ISWQ .EQ. 1) THEN
|
||||
NCT=NCT+1
|
||||
OPTIONS(NCT:NCT)='q'
|
||||
ENDIF
|
||||
IF(ISWY .EQ. 1) THEN
|
||||
NCT=NCT+1
|
||||
OPTIONS(NCT:NCT)='q'
|
||||
ENDIF
|
||||
ID1=ID1**2/2
|
||||
WRITE(OPTIONS(NCT+1:NCT+12),'(''a'',I6.6,'' TEST'')') ID1
|
||||
! go to TRIANGLE
|
||||
INQUIRE (FILE = 'test.1.ele', EXIST = exists)
|
||||
if(exists) then
|
||||
open(77,file= 'test.1.ele')
|
||||
close(77,status='DELETE')
|
||||
ENDIF
|
||||
|
||||
INQUIRE (FILE = 'test.1.node', EXIST = exists)
|
||||
if(exists) then
|
||||
open(77,file= 'test.1.node')
|
||||
close(77,status='DELETE')
|
||||
ENDIF
|
||||
|
||||
INQUIRE (FILE = 'test.1.poly', EXIST = exists)
|
||||
if(exists) then
|
||||
open(77,file= 'test.1.poly')
|
||||
close(77,status='DELETE')
|
||||
ENDIF
|
||||
|
||||
INQUIRE (FILE = "C:\Program Files\RMA\TRIANGLE.EXE", EXIST = exists)
|
||||
if(.not. exists) then
|
||||
INQUIRE (FILE = "TRIANGLE.EXE", EXIST = exists)
|
||||
if(.not. exists) then
|
||||
CALL WMessageBox(YesNo,QuestionIcon,CommonOK,'TRIANGLE is not available in '//CHAR(13)//&
|
||||
'C:\Program Files\RMA\ directory'//CHAR(13)//'Do you wish to define directory?'&
|
||||
,'WARNING TRIANGLE IS NOT AVAILABLE')
|
||||
|
||||
! If answer 'No', return
|
||||
!
|
||||
IF (WInfoDialog(4).EQ.2) return
|
||||
CALL GETDIR(LOCDIR)
|
||||
else
|
||||
LOCDIR(1:8)='TRIANGLE'
|
||||
! WRITE(155,*) LOCDIR
|
||||
RESULT= RUNQQ(LOCDIR, OPTIONS)
|
||||
GO TO 600
|
||||
endif
|
||||
endif
|
||||
RESULT= RUNQQ("C:\Program Files\RMA\TRIANGLE", OPTIONS)
|
||||
! RESULT= RUNQQ("TRIANGLE", OPTIONS)
|
||||
|
||||
600 IIN=10
|
||||
OPEN(IIN,FILE='TEST.1.ELE', STATUS='OLD')
|
||||
|
||||
! write(155,*) 'going to get newfile'
|
||||
CALL GETNEWFIL(IIN,0,-1,-1)
|
||||
!IADD=50+iactvfil+1
|
||||
!CALL RDTOCLIP(IADD)
|
||||
!
|
||||
!IF(IADD .EQ. 51) THEN
|
||||
!write(90,*) 'finished addmesh'
|
||||
!
|
||||
!NHTP=NHTPSV
|
||||
!NMESS=NMESSSV
|
||||
!NBRR=NBRRSV
|
||||
!call hedr
|
||||
!ELSE
|
||||
! CALL ADDMESH(0)
|
||||
NHTP=NHTPSV
|
||||
NMESS=NMESSSV
|
||||
NBRR=NBRRSV
|
||||
call hedr
|
||||
CALL PLOTOT(0)
|
||||
|
||||
! CALL WMessageBox(YesNo,QuestionIcon,CommonOK,'Do you wish to delete unused nodes?'//&
|
||||
! CHAR(13)//' ','Delete unused nodes?')
|
||||
! !
|
||||
!! If answer 'No', return
|
||||
!!
|
||||
! IF (WInfoDialog(4).EQ.2) return
|
||||
!!
|
||||
!! Delete all unused nodes
|
||||
!!
|
||||
! CALL DELETM(2)
|
||||
!
|
||||
! ENDIF
|
||||
|
||||
! get new mesh
|
||||
! add meshes together
|
||||
RETURN
|
||||
END
|
||||
|
||||
SUBROUTINE UNDOGEN
|
||||
USE BLK1MOD
|
||||
INCLUDE 'BFILES.I90'
|
||||
ALLOCATABLE NODETRAN(:)
|
||||
DATA VDX9/-9.E9/
|
||||
|
||||
! Loop through nodes assigning new number and adding to list
|
||||
|
||||
IF(.NOT. ALLOCATED(NODETRAN)) ALLOCATE (NODETRAN(maxp))
|
||||
|
||||
CALL ZEROOUT
|
||||
IADD=50+IACTVFIL
|
||||
CALL RDTOCLIP(IADD)
|
||||
|
||||
DO N=1,NPSTO(1)
|
||||
IF(XUSRSTO(N,1) .GT. VDX9) THEN
|
||||
CALL GETNOD(J)
|
||||
NODETRAN(N)=J
|
||||
XUSR(J)=XUSRSTO(N,1)
|
||||
YUSR(J)=YUSRSTO(N,1)
|
||||
WD(J)=WDSTO(N,1)
|
||||
WIDTH(J)=WIDTHSTO(N,1)
|
||||
SS1(J)=SS1STO(N,1)
|
||||
SS2(J)=SS2STO(N,1)
|
||||
WIDS(J)=WIDSSTO(N,1)
|
||||
WIDBS(J)=WIDBSSTO(N,1)
|
||||
SSO(J)=SSOSTO(N,1)
|
||||
BS1(J)=BS1STO(N,1)
|
||||
INSKP(J) = 0
|
||||
INEW(J) = 1
|
||||
ENDIF
|
||||
ENDDO
|
||||
|
||||
! Loop through elements assigning new number and adding to list
|
||||
|
||||
DO N=1,NESTO(1)
|
||||
IF(IMATSTO(N,1) .GT. 0) THEN
|
||||
CALL GETELM(M)
|
||||
DO K=1,8
|
||||
IF(NOPSTO(N,K,1) .GT. 0) THEN
|
||||
J=NODETRAN(NOPSTO(N,K,1))
|
||||
NOP(M,K)=J
|
||||
ELSE
|
||||
NOP(M,K)=0
|
||||
ENDIF
|
||||
ENDDO
|
||||
IMAT(M)=IMATSTO(N,1)
|
||||
THTA(M)=THTASTO(N,1)
|
||||
IESKP(M)=0
|
||||
NCN = 2
|
||||
IF (NOP(M,3) .NE. 0) NCN = 3
|
||||
IF (NOP(M,4) .NE. 0) NCN = 4
|
||||
IF (NOP(M,5) .NE. 0 .AND. NOP(M,4) .NE. 0) NCN = 5
|
||||
IF (NOP(M,5) .NE. 0 .AND. NOP(M,4) .EQ. 0) NCN = 6
|
||||
IF (NOP(M,6) .NE. 0) NCN = 6
|
||||
IF (NOP(M,7) .NE. 0) NCN = 8
|
||||
NCORN(M) = NCN
|
||||
|
||||
ENDIF
|
||||
ENDDO
|
||||
|
||||
! if(iswt .eq. 0) CALL RESCAL
|
||||
CALL RESCAL
|
||||
CALL HEDR
|
||||
|
||||
RETURN
|
||||
END
|
||||
SUBROUTINE GETDIR(LOCDIR)
|
||||
use winteracter
|
||||
|
||||
implicit none
|
||||
|
||||
include 'D.inc'
|
||||
INCLUDE 'BFILES.I90'
|
||||
|
||||
!
|
||||
! Declare window-type and message variables
|
||||
!
|
||||
TYPE(WIN_STYLE) :: WINDOW
|
||||
|
||||
TYPE(WIN_MESSAGE) :: MESSAGE
|
||||
|
||||
CHARACTER*96 LOCDIR
|
||||
integer ierr,K,KL
|
||||
|
||||
call wdialogload(IDD_GETFL)
|
||||
ierr=infoerror(1)
|
||||
|
||||
CALL WDialogPutString(idf_string1,locdir)
|
||||
! LOCDIR='C:\Users\RMA5440\TRIANGLE\TRIANGLE'
|
||||
|
||||
CALL WDialogSelect(IDD_GETFL)
|
||||
ierr=infoerror(1)
|
||||
|
||||
CALL WDialogShow(-1,-1,0,Modal)
|
||||
ierr=infoerror(1)
|
||||
do
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDOK) THEN
|
||||
CALL WDialogGetString(idf_string1,locdir)
|
||||
DO K=96,1,-1
|
||||
KL=K
|
||||
IF(LOCDIR(K:K) .NE. ' ') GO TO 200
|
||||
ENDDO
|
||||
LOCDIR(1:8)='TRIANGLE'
|
||||
RETURN
|
||||
200 CONTINUE
|
||||
LOCDIR(KL+1:KL+9)='\TRIANGLE'
|
||||
WRITE(90,*) LOCDIR
|
||||
RETURN
|
||||
endif
|
||||
enddo
|
||||
END
|
||||
@ -0,0 +1,40 @@
|
||||
SUBROUTINE backc(ient)
|
||||
|
||||
use winteracter
|
||||
|
||||
implicit none
|
||||
|
||||
include 'd.inc'
|
||||
|
||||
!
|
||||
! Declare window-type and message variables
|
||||
!
|
||||
TYPE(WIN_STYLE) :: WINDOW
|
||||
|
||||
TYPE(WIN_MESSAGE) :: MESSAGE
|
||||
INTEGER :: iw,ih,ihandle,ient,IHAND1,IHAND2,IXPM,IYPX,IXPX,IYPM,IRGB
|
||||
common /hands/ ihandle,IHAND1,IHAND2,IXPM,IYPX,IXPX,IYPM
|
||||
if(ient .eq. 1) then
|
||||
iw=WinfoWindow(WindowWidth)
|
||||
ih=WinfoWindow(WindowHeight)
|
||||
WRITE(90,*) 'IW,IH',IW,IH
|
||||
IF(IHANDLE .EQ. 0) THEN
|
||||
IRGB = WRGB(220,220,220)
|
||||
call WBitmapCreate(ihandle,iw,ih,irgb)
|
||||
call IGrSelect(DrawBitmap,ihandle)
|
||||
! CALL WBitmapPut(IHAND2,1,1,IXPM,IYPX,IXPX,IYPM)
|
||||
ELSE
|
||||
call IGrSelect(DrawBitmap,ihandle)
|
||||
! CALL WBitmapPut(IHAND2,1,1,IXPM,IYPX,IXPX,IYPM)
|
||||
|
||||
ENDIF
|
||||
return
|
||||
else
|
||||
call IGrSelect(DrawWin)
|
||||
call WBitmapPut(ihandle,0,0)
|
||||
call WBitmapDestroy(ihandle)
|
||||
ihandle=0
|
||||
|
||||
endif
|
||||
return
|
||||
end
|
||||
Loading…
Reference in New Issue