Quantcast
Channel: Intel® Software - Intel® Visual Fortran Compiler for Windows*
Viewing all articles
Browse latest Browse all 5691

Another issue with V2017.

$
0
0

When using the command line to stay on the bottom line in an open window  " wc%mode = QWIN$SCROLLDOWN"  IVF V17 leaves the output one line too long.  In other words the last line in the output is not shown(hidden one line below last viewable line in the window) you must scroll down one line to see the last line.  Since this last line is calling for an input it is a problem.  The last line output is with a "(*** ...,\)" format at the end so that a carriage return is not done and the input is at the end of the same line as the request for input.  It works correctly in all earlier IVF versions. 

Is it's function different in v17 or is this a possible bug? 

Code for Window:

      OPEN (unit, FILE='USER')

      wc%numtextcols = -1

      wc%numtextrows = 180  ! sets the number of scrollable rows in a window

      wc%numcolors   = -1

      wc%title= "xxxx 3.18"C        

      wc%fontsize = Z'000C000F'   ! 0009000E 0009 IS THE TEXT HEIGHT(HEX) 9

      !                                      000E IS THE TEXT WIDTH(HEX)  14                           

      wc%mode = QWIN$SCROLLDOWN   ! stay on bottom row of window     **********command in question********

      status = SETWINDOWCONFIG(wc)  ! attempt to set configuration with above values

         ! if attempt fails, set with system estimated values

      if (.NOT.status)status = SETWINDOWCONFIG(wc)     

!     set page frame

      qw.type = QWIN$SET

       qw.w = 945

       qw.h = 800

      i4 = setwsizeqq(QWIN$FRAMEWINDOW, qw)

!*******************************************************************************

!                      SET CHILD WINDOW SIZE

!*******************************************************************************

      winfo.TYPE = QWIN$SET

      CALL CLEARSCREEN($GCLEARSCREEN)

      winfo.x  =0

      winfo.y  =0

      winfo.W    = 82

      winfo.H    = 49

      result  = SETWSIZEQQ(unit,winfo)

 

 

 

 


Viewing all articles
Browse latest Browse all 5691

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>