... warnings. type ESMF_FieldBundleType sequence type(ESMF_Base) :: base ! base class object type(ESMF_Field), dimension(:), pointer :: flist type(ESMF_Status) :: bundlestatus type(ESMF_Status) :: gridstatus type(ESMF_Grid) :: grid ! associated globalGrid type(ESMF_LocalFieldBundle) :: ...

...t make clear), I was only fooling around with the idea of using a binary function recursively in a list context... fbin x y = ... flist (x:xs) = fbin x (flist xs) ..and 0 was the first (habitual) thing to place at the first line to terminate the recursion. All this because I still don't get the ...

...> However, if I had defined in advance structure FList = F(List) structure VList = F(Vector) and val string2structure = fn "list\n" => let open FList in app print ["a","b","c"] end Here I would write FList.app. Use of open makes this longer. | "... with accessing a value inside a module (e.g. FList.app) is not specified. In practice, a few ...

... know in advance the user input, so it cannot optimize much. However, if I had defined in advance structure FList = F(List) structure VList = F(Vector) and val string2structure = fn "list\n" => let open FList in app print ["a","b","c"] end | "vector\n" => let open FVector in app print #["A...

... } static void get_or_delete (int argc, char *argv[], gboolean delete) { GList *flist = NULL; GnomeKeyringFound *found; GnomeKeyringAttributeList *attrs = compute_attributes (argc, argv); if ... if (flist == NULL) exit (delete ? 0 : 1); found = (GnomeKeyringFound *) flist->data; if (delete) { if (gnome_keyring_item_delete_sync (NULL, found->item_id) != ...

..., restituisce su una stringlist (anch'essa come parametro) la lista dei sui antenati. Questo e' il prototipo: procedure AncestorClass(AClass: TClass; AList: TStringList); E la chiamo così AncestorClass(TButton, Flist); Ora vorrei fare in modo che il parametro classe da passare alla routine, sia da "estrarre" da una stringa, questo per fare in modo di mettere a video un TEdit dove ...

... on tree's growth etc. This data is then read by a Fortran program, handled and printet. No problem so far. It is believed that the compiler ran on a Norsk Data system. The printout of the tape shows some headers, which might be helpful in deciding which type of system was used : FILE 1 PAGE 1 FORMAT COPY,G REEL ? NISKOS PAGE 1 FLISTED: 86. 3-18 ODD*VAR(1).

... ran on a Norsk Data system. The printout of the tape shows some headers, which might be helpful in deciding which type of system was used : FILE 1 PAGE 1 FORMAT COPY,G REEL ? NISKOS PAGE 1 FLISTED: 86. 3-18 ODD*VAR(1). resp NBMOST*PROGRAM(1). The ODD*VAR type looks like this THIS IS PROBABLY A @DATA FILE OCTAL FD ASCII 500130000000 *ÆS@@@ @X ...

...It is believed that the compiler ran on a Norsk Data system. The printout of the tape shows some headers, which might be helpful in deciding which type of system was used : FILE 1 PAGE 1 FORMAT COPY,G REEL ? NISKOS PAGE 1 FLISTED: 86. 3-18 ODD*VAR(1). resp NBMOST*PROGRAM(1). The ODD*VAR type looks like this THIS IS PROBABLY A @DATA FILE OCTAL FD ASCII 500130000000 *

...e lo passo al metodo switch: var NewItem: TFrameItem; begin Result := -1; if Assigned(FActiveItem) and (FActiveItem.Id = AId) then exit; NewItem := FList.FindById(AId); if Assigned(NewItem) then begin if Assigned(FActiveItem) then FActiveItem.Disable; NewItem.Enable(FForm, FGridPanel, FEditPanel); FActiveItem := NewItem; Result :=...