Mail Archives: cygwin/2001/08/28/09:04:43
--------------InterScan_NT_MIME_Boundary
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C12FC1.DCE6A060"
------_=_NextPart_001_01C12FC1.DCE6A060
Content-Type: text/plain;
charset="windows-1252"
I am writing a dialog box based fortran program where I have several buttons and edit boxes for options to edit files, deleting files, plotting data using Matllab etc. Now I like to add another button for option to generate an input file. The file to make an input file is Unix script file which I ran successfully in CYGWIN environment using the tshell. I know to call Matlab I had to call their 'engOpen' routine. Is there anything similar in CYGWIN? A short routine is added below-
retlog = DlgGet(dlg,IDC_COMBO1,edtdat)
IF(edtdat .eq. 'Y') THEN
call fopen
END IF
retlog = DlgGet( dlg, IDC_CHECK1, check )
if(check) then
call fileopen
end if
call mainsub !start hfeam calculations !JD commented
!call thfm
!WRITE (text,*,iostat=retint) amtIF ( retint .eq. 0 ) THEN
! IF ( retint .eq. 0 ) THEN
retlog = DlgGet(dlg,IDC_COMBO2,pltdat)
IF(pltdat .eq. 'Y') THEN
ep = engOpen('matlab ')
if (ep .eq. 0) then
write(6,*) 'Can''t start MATLAB engine'
stop
endif
call engEvalString(ep, 'cd c:\dhfeam\hfeam')
call engEvalString(ep, 'plothfeam');
I want to add something on top so that depending on the choice it will invoke the cygwin ( go to the directory-cygwin\home\pauldk) and execute the script file 'select' and generate the input file 'input.dat' and move it to (cd c:\dhfeam\hfeam or mv) and then the file can be edited using - IF(edtdat .eq. 'Y') THEN call fopen.
Thanks
Dilip K. Paul
Naval Undersea Warfare Center
Code 8121, Bldg. 679/2
Newport, RI 02841
Tel: (401) 832-1412
<mailto:pauldk AT npt DOT nuwc DOT navy DOT mil> mailto:pauldk AT npt DOT nuwc DOT navy DOT mil
------_=_NextPart_001_01C12FC1.DCE6A060
Content-Type: text/html;
charset="windows-1252"
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1252">
<META content="MSHTML 5.00.2919.6307" name=GENERATOR></HEAD>
<BODY>
<DIV><FONT face=Arial size=2><SPAN class=990394412-28082001>I am writing a
dialog box based fortran program where I have several buttons and edit boxes for
options to edit files, deleting files, plotting data using Matllab etc. Now I
like to add another button for option to generate an input file. The file to
make an input file is Unix script file which I ran successfully in CYGWIN
environment using the tshell. I know to call Matlab I had to call their
'engOpen' routine. Is there anything similar in CYGWIN? A short routine is added
below-</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=990394412-28082001></SPAN></FONT> </DIV>
<DIV><FONT face=Arial size=2><SPAN class=990394412-28082001> retlog =
DlgGet(dlg,IDC_COMBO1,edtdat)
<BR>
<BR> IF(edtdat .eq. 'Y')
THEN<BR> call
fopen<BR> <BR> END
IF<BR> retlog = DlgGet( dlg, IDC_CHECK1, check
)<BR> if(check) then<BR> call fileopen<BR> end if<BR>
<BR> call mainsub !start hfeam
calculations !JD
commented<BR> !call thfm<BR> !WRITE
(text,*,iostat=retint) amtIF ( retint .eq. 0 ) THEN<BR>
<BR>! IF ( retint .eq. 0 )
THEN<BR> retlog =
DlgGet(dlg,IDC_COMBO2,pltdat)<BR> IF(pltdat .eq. 'Y')
THEN<BR> ep = engOpen('matlab
')<BR> if (ep .eq. 0)
then<BR> write(6,*) 'Can''t
start MATLAB engine'<BR>
stop<BR> endif<BR> call
engEvalString(ep, 'cd
c:\dhfeam\hfeam')<BR> call
engEvalString(ep, 'plothfeam');</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=990394412-28082001></SPAN></FONT> </DIV>
<DIV><FONT face=Arial size=2><SPAN class=990394412-28082001>I want to add
something on top so that depending on the choice it will invoke the cygwin ( go
to the directory-cygwin\home\pauldk) and execute the script file 'select' and
generate the input file 'input.dat' and move it to (cd c:\dhfeam\hfeam or mv)
and then the file can be edited using - IF(edtdat .eq. 'Y') THEN call
fopen.</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2><SPAN
class=990394412-28082001></SPAN></FONT> </DIV>
<DIV><FONT face=Arial size=2><SPAN
class=990394412-28082001>Thanks</SPAN></FONT></DIV>
<P align=left><FONT color=#808000 face="Monotype Corsiva" size=4>Dilip K.
Paul</FONT></P>
<P align=left><FONT color=#800000 face="Lucida Console" size=2><FONT
color=#800000 face="Lucida Console" size=2>Naval Undersea Warfare
Center</FONT></FONT></P>
<P align=left><FONT color=#800000 face="Lucida Console" size=2>Code 8121, Bldg.
679/2</FONT></P>
<P align=left><FONT color=#800000 face=Arial size=2>Newport, RI 02841</FONT></P>
<P align=left><FONT color=#800000 face=Arial size=2>Tel: (401)
832-1412</FONT></P>
<P align=left><A href="mailto:pauldk AT npt DOT nuwc DOT navy DOT mil"><U><FONT
color=#0000ff>mailto:pauldk AT npt DOT nuwc DOT navy DOT mil</FONT></U></A></P>
<DIV> </DIV></BODY></HTML>
------_=_NextPart_001_01C12FC1.DCE6A060--
--------------InterScan_NT_MIME_Boundary
Content-Type: text/plain; charset=us-ascii
--
Unsubscribe info: http://cygwin.com/ml/#unsubscribe-simple
Bug reporting: http://cygwin.com/bugs.html
Documentation: http://cygwin.com/docs.html
FAQ: http://cygwin.com/faq/
--------------InterScan_NT_MIME_Boundary--
- Raw text -